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VAX=11 TECO 

General macros 

System definitions 
Internal macros 

Wel. Cedit typeout) bits 
‘*ED'’ (edit mode) bits 
Internal definitions 
-PSECT definitions 

Pure data 

Impure data 

Permanent I/0 buffers 
Main srortu entry point 
Initia zt on code 
Conpet bil ty mode trap handler 
Initial start up 

Error processing. etc. 
Control/c ASTs 

Terminal output waits 
Terminal output 

Terminal input 


€ 
Close indirect command file 
Error message finish up 
Get files opened, etc. 
Do “‘en process ing 
Handle the EJ flag 
Handle Line truncation mode changes 
Handle 8-bit terminal mode changes 
Handle new terminal width 
Stop terminal hacks 
Process special functions 
Get additional memory 
Get date and time 
Exit from TECO 
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® 
1GHT (c) 1978, 1980, 1982, 1984 8 . 
AL EQUIPHENT _GORPORATION, MAYNARD. MASSACHUSETTS. * 
IGHTS R ‘ 
© 

SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
SAIHEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
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* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:# AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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** 
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8 CORPORATION. 

00 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

°° SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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0000 -show meb 
88 -sbttl vAX=11 TECO 
0000 last edit on 25-Jan-1984 by Mark Bramhall 
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§ esbttl General macros 


: »macro unorg 
-endm = unorg 


eendc “sect 
-endm defor rg 


macro org sect, offset 
emacro unorg 
.nos hou meb 
0 -psect sect 
0 -show meb 
-endm = unorg 
** sect, <offset> 
-endm org 
0 emacro deforg sect 
it org weet 
error ; 7 DEFORG" not. : beginning of ‘‘sect"’ 
0 
0 
0 
0 
0 


emacro — sect, offset 
enoshow me 
poet sect 


-if ndf sect 

sect: 

-endc ; ndf_ sect 

ST nb <of fset> 

° J offset+sect 
eendc 3 nb <offset> 
sshow meb 

-endm tmporg 


emacro .dsect start=0 
-noshow me eb 


start 
sexe nop tc usr aur ane. Lel noche neguenord.naurt 
n ‘ 


OOooooooooooocoooa 


eendc ; ndf 
= 
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9 280826 

. $$$$$$+..abs.. 
-show meb 

-endm  .dsect 


emacro .bsect bit=0 
-dsect <la<bit>> 
-endm  .bsect 


macro .mvsect prefix, suffix, bit=0 
-macro opvee! . 
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— suffi tee: -bLkb 
-bsect pref $y! 

prefix'Sa. rout fix’? ‘sym: . “ 
-dsect prefix’ Sv. *suffix''sym+1 
-iff 3; nb <Sym> 
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eblLkb 
-endc =; nb <sym> 
.endm sper" 
-dsect 
7 -endm emvsect 
$s macro .equate symbol, value 
§ -dsect <value> 
symbol: 
3 unorg 
3 endm -equate 
8 $f macro .assume argi, cond, arg2 
$ § if cond fargi>=<arg : 
iff 3 cond <ar ees 1 
0 4 .error ; Rad con ails 
0 5 .endc ; cond <argl>-<arg2> 
0 $ -endm .assume 
; 08 .macro .desc tag, amt=63 
8 09 .noshow meb 
$$$$$$ +8 


ealign que ad 
if ne +8-$$$8$$ 
ewarn ; not quadvord ¢_gt toned 
e = 
-endc ; ne — 
show meb 

f nb <tag> 
tag'_buf = $$$5$$ 
tag'_siz = amt 

-long tag’ siz 


-blkb amt 
-noshow meb 

-align 

sshow meb 

-endm  .desc 


bit, dst, gto 
if n <Zextract(0 “pit)> <#> 


c 
d 
e <1az bob hy IE 098 Bit)>-63 
Ms bicb s*#la%extract(1,3000,bit), dst 
-mex 
-endc ; le <la%extract(1,3000,bit)>-63 


sendc ; idn <Zextract(0,1.bit)>,<#> 
bbsc bit, dst, tag 


emacro b 
if { 


ta 
—*8 be 


macro bs bit, dst, teg 
vif dn Tf sbit)>,<#> 
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if Le <latextract(1,30 it)>=-63 
bisb Must ta bit), dst 


4 
fi 
4 : le <la%extract(1 3000, ofyent 
ende i idm <extract(0,1, *bit)> 

: bbcs bit, dst, tag 

.endm bs 

5 

60 


macro arto ya reg, mode=w 
vab 8 —R abut, reg 
nov reg, “(reg 
assume tag+ eq g'_buf 
movzwl #tag' sts. tree) 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
1 -endm getdesc 
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18 esbttl System definitions 
¢ -noshow meb 


; cli 

; aie g descriptor defs 

; get ce information defs 

; get 1° ob/process information defs 

s él 

: 44 status } jeneuere defs 

; status code definitions 

; terminal modes/characteristics defs 
; terminal modes/characteristics defs 


e989 @ -2820020 
— . 
a 
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Entry to compatibility mode exception handler with: 


saved r0 (ctlSal_cmcntx) 
saved ri 

saved r 

saved r 

saved r4 

saved r5 

saved r6 (compatibility sp) 

exception code 

saved exception pc 

saved exception psl (compatibility ps) 


Exception codes are: 

reserved instruction 
bpt 

iot 


trap 
illegal instruction 
eck roerene 


nhunnnuun 
@ 
3 
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e 
a 
w 
@ 
o 
7 
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; ctlSal_cmcntx data storage offsets 
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i_rd: ebLkL : saved r0 
iri: ebLkL 3 saved ri 
rg: ebLkL ; saved r 
1st ebLkL ; saved r 
i_r4: obLkL ; saved r4 
i_r5: obLkL ; saved r5 
i_sp: ebLKL : saved r6 (compatibility sp) 
i_code: ebLkL ; saved eacept ten code 
4 i_pe: »bLKL ; saved p 
5 i_ps: ebLKL ; saved Bst (compatibility ps) 
: equate i_bias, i_pc-i_r0 ; bias from ctlSal_cmcntx to entry r0 
as: 
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zzuit 
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Internal macros 
rad50 ode 
char, 


<code> 

OSS essse0>+<*a/char/=64> 
3 char. <code> 
rad5 


bsbw 
tmporg tecodat 


err code, text 
err 


unorg 

-long $$$$$$ 
tmporg tecodat 
<code 

-word $$$$$$ 

-ascic text 
unorg 
err 
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vs 


0000002 
80000008 
80000008 


8888 04 
00010 


000100 


63638 
00000200 
Q000000A 
00000800 
000000 


000008 
0000000C 


00002000 
80004006 


0000000F 


0010000 


00000001 
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38838388883888 
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4 
4 
4 
4 
4 
246 
247 
248 
249 
250 
251 
252 
253 


254 


-sbttl 


tec$v_et3cco: 
tec$m ettecet 


tec$v_et$det: 
tec$m_et$det: 


emvdef xit 


tec$v_et$xit: 
etSxit: 


tec 


emvdeft tru 


tec$v_et$tru: 
tec$m_et$tru: 


mvdet ias 


tec$m 
-mvde 


-avdef sat 
tec$v_etS8bt: 
bt: 


tec$m_et$ 
emvdet gry 
tecSv_et 

tec$m 


emvdef cc 
tec$v_et$cc: 
tec$m_et$cc: 


esbttl 


emvde 


f att 
tec$v_ed$ctl: 


se se ese se 
oo oo oo oo coo coo co oo oo co coo 


-bLkb 


18-$Ep- 


"ET'' (edit typeout) bits 
emvsect tec, et$ 


; +1. 
; 42, 
3 +4, 
; +8, 
; +16. 
; 432. 
i +64. 
; +128. 
; +256. 
; +512. 
; +1024. 


> +2048. 
: +4096. 


> +8192. 


3+16384. 
3732768. 


“ED (edit mode) bits 
emvsect tec, ed$ 
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Page 


output in binary (image) mode 

do scope type rubout and control/u 
accept lower case input 

no echo during input for ctrl/t 

cancel control/o on output | 

return -1 if error/no input on ctrl/t 
detach and detached flag 

"no prompt yet’ flag 

truncate long output Lines 

interactive scope available for ‘watch’ 


refresh scope available for ‘‘watch"’ 


reserved by TECO-8 
terminal is an 8-bit terminal 


accept as escape during command input 


unused 
allow program to trap control/c 


don't allow as meaning control character 


G6 11 
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v85 02 MED" Cedi mode) bits 18-Sep-1984 8:14.08 LEC SRea SEC ONAT Roe s ve 8, 
00000002 1 tecSm_ed$ctl: .blkb. 
1 267 .mvdef ynk : +2., allow yanks, etc. to clobber text buffer 
00000008 tec$v_edSynk:  .blkb 
tec$m_ed$ynk: eblkb 
268 .mvde gxp : +4., don't allow arbitrary expansion(s) 
00000003 tec$v_ed$exp: .blkb 
269 wees # Sexp: eblkb "8 é by TeCo-8 
-mvde : «» reserve - 
00000004 sbLkb Sages 
4 270 .mvdef srh : +#16., don't reset ‘‘dot'’ on search failure 
88888 4 tec$v_ed$srh «blkb 
000 tec edter eblkb 
271 .mvdef imd : +32., allow immediate mode commands 
88838 tec$v_ed$Simd -blkb 
00004 tec$m_ed$imd eblkb 
6 272 .mvdef inc : +64., only move ‘‘dot’’ by one on iterative search failure 
aa 4 tec$v_ed$inc ebLkb 
000080 4 tec$m_ed$inc wee .s 
273 .mvdef weh : +128., don't do automatic ‘‘w'’ command before prompt 
8900008 007 tec$v_ed$wch -blkb 
00010 $ tec$m_ed$wch: eblkb 
274 .mvdet : +256., unused 
00000009 000 -blkb 
94 275 .mvdef ; +#512., unused 
0000000A 9 eblkb 
BBA 276 .mvdef 3; +1024., unused 
00000008 OA -blkb 
008 277 .mvdef : +2048., unused 
0000000C 0008 -blkb 
C 278 .mvdef : +4096., unused 
0000000D C -blkb 
00D 279 .mvdef : +8192., unused 
O000000E 000D eblkb 
O0E 280 .mvdef 3+16384., unused 
OOOO0000F O00E eblkb 
One 281 .mvdef 3+32768., unused 
00000010 000F blkb 
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ECO 16-SEP 
Internal definitions 10-S 


esbttl Internal definitions 


__tt$_vt0s 


tt2$m_edita-16 

tSedit ne 0 
tt2$m_deccrta-16 
t$dec ne 0 
_tt2$m_ansicrta-16 
“tSansi ne 0 


e initial_siz, 5000 
siz: 


tSedit:: 
assume 


-asect 
t$dec:: 
assume 


sec 
t3ans 
vassune 


sequete 
initial 
equate ter_i_siz, 512 
ter_i_siz: 


soquete ter_o_sts, 512 


ter_o_siz 

equate input_nor_siz, 2048 
input_nor_siz: 

. wn lndie _cmd_siz, 2048 
indir_cmd_siz: 

equate input. alt_siz, 2048 
input_alt_siz 

-equate output. SYS. siz, 512 
output_sys_s 


equate input. vfc_siz, 12 
input_ vfc_siz 


emvsect fab, tec 


emvdef eof 

fabSv_ —226 

fa —3 coon: 

emvdet ws 

fab$v_tecno —* 

fab$m_tecnoist: 
buf 


eavde 
fab$Sv_tecbuf: 
ecbuf: 


fa bSavt 

omy * sr 
fab$v_tecicr: ; 
fab$m_tecicr: ‘ 
emvdet ecr 
fab$Sv_tececr: 


ee 
oo oo oor oo 
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det ige vt05's.. 


for compati ity mode 


bit 
define ‘edit’ functions... 
e+ for compatibility mode 


define ‘dec crt’... 


eee for compatibility mode 


define ‘ansi c 
eco VOF —Bau mode 


initial text & q-reg size 
terminal input buffer size 
terminal output buffer size 
normal input record buffer size 
tei" 


record buffer size 


alternate input record buffer size 


_ sys$output output record buffer size 


vfc input buffer size 


definitions for fab$l_tecsts 
at end-of-file 


not first time through 
use buffered data instead of file 
<cr> ignored, need <cr><lf> on eof 


extra <cr> output, do <Lf> next 


9 
(6) 


v89.02" 


VAX-11 TECO 
Internal definitions 


00000020 


—T 
—X 
—T 
—T 
— 
—T 
—X 
—T 
ooooooot 


0000000F 
00000010 


SCooooooo— 
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323 
324 
325 
326 
327 
328 
329 
330 


331 
332 


33 
333 


fab$m_tececr: 


emvge 


nxt 
fab$v_ tecnst: 
fab$m_tecnxt: 


emvdet fmt 


fab$v_ boc rars 
fab ecfmt: 


omy ~" 4 x» 
fabSv_tecrw: 
fab$m_tecrw: 
emvdet sh 
fab$v_tecsh: 
fab : 
emvdet b 
fab$Sv_tecbe: 
fab$m_tecbe: 


fab$Sv_tecnv: 
fab$m_tecnv: 
emvdet stm 


fab$Sv_tecstm: 
fab$m_tecstm: 


emvdet var 


fab$Sv_tecvar: 
fab$m_tecvar: 


emvde 
eavdef 


3 .mvdef 


se 
oo oo co oo coco oo coco co 
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; pre-fetched character exists (a +3) 
: /-cr, /cer, or /ft specified 

; /rw = rewind magtape before opens 

3; /sh = shared open 


: /b2 


basic-plus-2 mode 

; /nv = always create a new version 
; /stm = stream format specified 

: /var = variable format specified 


3; unused... 
3; unused... 
; unused... 


vse Ni 
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1 TE 
T de 
1 ; -sbttl .PSECT definitions 
0000 epsect cecodet, page,nopic,usr,con,rel,icl, shr,noexe,rd,nowrt 
4 deforg + aaa 
0000 -psect tecodati page nopic, ,usr,con,rel,lcl, shr,noexe,rd,nowrt 
deforg tecodatin 

0000 

09 

000 

00 

000 


-psect teco 
0000 


buf, page,nopic,usr,con,rel,icl,noshr,noexe,rd, wrt 
gorers tecobut 
e l, 
0000 


, Page-nopic, usr,con,rel,lcl,roshr,noexe,rd, wrt 
gie ·nodie. usr,con,rel,icl,noshr,noexe,rd, wrt 


epsect 
gerery Recoct 

-psect tec lini 

deforg tecoctlin 


-psect tecoexe, page,nopic,usr,con,rel,icl, shr, exe,rd,nowrt 
deforg tecoexe 

-psect tecoexelbr, {pece-nopic. usr,ovr,rel,gbl, shr, exe,rd,nowrt 
deforg tecoexe 

-psect tecoexeini, page,nopic,usr,con,rel,icl, shr, exe,rd,nowrt 
deforg tecoexeini 
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-sbttl Pure data 


org 
align page 
ter_o_table: 
rept Bb 
if eq 

. byte 


-byte 
-byte 
-byte 


tecodat 


3; terminal output translate ‘til table 
$5-~tor_o.tebler8tero~s7 


<<.-ter_o_table>&127>-27 
-“ter_o_table 
<<.*ter_o_table>&127>-27 


--ter-o-table 
-*ter_o_table 
-*ter_o_table 


-ter_o_table 
27 


-*ter_o_table 
-~ter_o_table 
-*ter_o_table 
-“ter_o_table 
-~ter_o_table 
-*ter_o_table 
-~ter_o_table 
-*ter_o_table 


-*ter_o_table 
-*ter_o_table 


TECONAT VAX=11 TECO 16-SEP-1984 11:05 YAX/VMS Macro V04-00 P 13 
v89 02 Pure data WB-SEp-19be $S:tos0s FAECOSResEcoNAT mar:s = P28 13, 
byte .=-ter_o_table 

yte .=-ter_o_table 
byte .=-ter_o_table 
byte .=-ter_o_table 


-*ter_o_table 
° -~ter_o_table 
ebyte .=-ter_o_table 
byte .=-ter_o_table 


BPR REPRE ERE EE EF PAWN AANA AA —— 


OSOooooooooooococoo 


SOOoOOSOSSOCOoooooooooooooooooooooooooooooooooooooo 


byte .=-ter_o_table 
byte .=-ter_o_table 
byte .-ter_o_table 


WO FMCW YP — FS OONOUESW FS OONOUS WO FMMIOW 
WO —⏑ VL WO WMI OD  O MMIOWD PF OONOULS WN OMMIOW 
a 
Cc 
=<“ 
etc 
@o 


—— 


0——— ⏑⏑ —— 


M11 
V89.02. Pure data — —— 


byte .=-ter_o_table 


4 

és byte .-ter_o_table 
$ byte .-ter_o_table 
6 byte .=-ter_o_table 
6 byte .=-ter_o_table 
? byte .=-ter_o_table 
A -byte .-ter_o_table 
byte .-ter_o_table 

byte .-ter_o_table 

ebyte .=-ter_o_table 

yte .=-ter_o_table 

byte .-ter_o_table 

ebyte .=-ter_o_table 

byte .-ter_o_table 


ebyte .=-ter_o_table 
ebyte .=-ter_o_table 
ebyte .=-ter_o_table 
ebyte .=-ter_o_table 
-*ter_o_table 
ebyte .=-ter_o_table 
ebyte .=-ter_o_table 
ebyte .-ter_o_table 
ebyte .=-ter_o_table 
byte .=-ter_o_table 
ebyte .-ter_o_table 
byte .=-ter_o_table 
ebyte .-ter_o_table 
ebyte .-ter_o_table 
byte .=-ter_o_table 
byte .-ter_o_table 
byte .=-ter_o_table 
-byte .-ter_o 246 


—A 


fo Te] 
PS OONOMNE WN SO FBMMIOD PS OONAO ULE WN $0 MMOD SP OONOMUE WN ONMNIOD SOON 
* 
=< 
o 
@ 


— Rt Ae Ot 0+ pt pet ews 


sbyte .-tervo-table 
“pyte -ter_o_table 
-byte 

byte -*ter_o_table 


SSSSOSSSLOGG SSH R Rw We CSOSOGOCOSOOCOOCOCOSOOOSOOOCOOOOOoOSoOOSoOSoO 


OD PS ODNOUNES WY SO MMIOD SP OONOME WO MMIC \S> SONOUF UNIO MMOOw 


SOOOOOCOSSCSOoOOoSoSoSOOSSOSOSOOSOOOOOSOSOOSOSOOOOOOOOOOOOOOOO 


poe PR AF tet ———— et PEE RP me 
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ebyte .-ter_o 
byt 


.02 Pure data “SEP-1984 16:05 . SRCJTECONAT.MAR; 3 
D 9D byte .=-ter_o_table 
E 9E byte .-ter_o_table 
F oF byte .-ter_o_table 

AQ AO byte .=ter_o_table 
Al Al byte .=ter_o_table 
A A byte .=-ter_o_table 
A A byte .-ter_o_table 
A OA4 byte .=-ter_o_table 
AS AS byte .-ter_o_table 
A A byte .=-ter_o_table 
fa A ebyte .=-ter_o_table 
a A ebyte .-ter_o_table 
A A byte .=-ter_o_table 
AA —9 byte .=-ter_o_table 
AB AB ebyte .-ter_o_table 
AC OQOAC byte .-ter_o_table 
AD OQOAD byte .-ter_o_table 
AE QOAE byte .-ter_o_table 
AF OQOAF byte .=-ter_o_table 
BO 0080 byte .=-ter_o_table 
B1 0081 ebyte .=-ter_o_table 
1 Be byte .-ter_o_table 
B 08 byte .=-ter_o_table 
B4 0084 byte .=-ter_o_table 
B5 8 byte -ter_o_table 
B6 0086 byte .-ter_o_table 
B7 0087 byte .-ter_o_table 
B 8 byte -ter_o_table 
8 0B9 byte .-ter_o_table 
BA OOBA ebyte .-ter_o_table 
BB —9* byte .-ter_o_table 
BC O0BC byte .-ter_o_table 
BD 008D byte .-ter_o_table 
BE $e byte .-ter_o_table 
BF OOBF byte -ter_o_table 
CO 00CO byte .-ter_o_table 
C1 00C1 byte .-ter_o_table 
cs beg byte .-ter_o_table 
C be byte .-ter_o_table 
C% C4 byte .=-ter_o_table 
CS 00C5S byte .=-ter_o_table 
C6 pcg byte .-ter_o_table 
C OC byte .-ter_o_table 
ce 3 byte .-ter_o_table 
C C byte .-ter_o_table 
CA bce byte .-ter_o_table 
cB cB byte .-ter_o_table 
cc Oocc byte .-ter_o_table 
CD 4 byte .-ter_o_tabie 
CE CE ebyte .=-ter_o_table 
CF CF byte .-ter_o_table 
dO DO byte .-ter_o_table 
pt + table 
BS anh 

DS 8 


TECONAT VAX=-11 TECO -SEP-1984 02:11: AX/VMS_ Macro V04-00 Page 1 
v85 00 Pure data 18-$£p-1 984 HERG ETECO.SRCSTECONAT MAR; 3 (8) 

Dd D byte .=-ter_o_table 

) D byte .-ter_o_table 

88 9 byte .=-ter_o_table 

D D byte .-ter_o_table 

DA DA byte .-ter_o_table 

DB DB byte .=-ter_o_table 

dC DC -byte .=-ter_o_table 

DD DD -byte .-ter_o_table 

DE DE -byte .=ter_o_table 

DF DF -byte .=ter_o_table 

EO EO «byte .=-ter_o_table 

E1 E ebyte .=ter_o_table 

ES E byte .-ter_o_table 

E E -byte .=-ter_o_table 

E4 Q0E4 byte .-ter_o_table 

ES QOES byte .-ter_o_table 

Eg BES byte .=-ter_o_table 

E OE -byte “ter_o_table 

3: OE8 «byte .-ter_o_table 

E OE9 ebyte .=-ter_o_table 

EA QOEA -byte -ter_o_table 

EB QOOEB byte .-ter_o_table 

EC OQOEC byte .-ter_o_table 

ED OOED byte .-ter_o_table 

EE BREE byte .=-ter_o_table 

EF OOEF byte .=-ter_o_table 

FO OOFO -byte -ter_o_table 

Fl QOF1 -byte .=-ter_o_table 

Fs arg -byte -ter_o_table 

F3 F byte -ter_o_table 

52 F4 ebyte .=-ter_o_table 

rs F5 -byte -ter_o_table 

F6 ti -byte .=-ter_o_table 

F7? OOF -byte .=-ter_o_table 

4 a -byte .=-ter_o_table 

F OF -byte .=-ter_o_table 

FA OOFA byte .=-ter_o_table 

FB OOFB .byte -ter_o_table 

FC OOFC byte .-ter_o_table 

FD ore -byte .-ter_o_table 

FE FE -byte -ter_o_table 

FF 44 ? ebyte .=-ter_o_table 
1 J file speg ponte: : file spec buffer translate ‘til table 
1 74 cept 5 
1 75 $$$$$$ = ssfite.se c_table 
1 6 elif eq $$$$$ $$$$ = 
1 77 iif eq $$$$$$-128, $$$$$$ = 
1 8 elif eq $$$$$$-255, $$$$$$ = 
1 79 .if t $$$ + 31883 
1 9 if t 335 -<32+128> 
1 $$$sss = $$$$$$01 
1 § eendc =; Lt $$$$$$-< 63158 
1 -endc =; gt 335 ; =< 0+128> 
1 -byte $$ 
1 5 .endr 

00 01 byte  $$8$$$ 


git? v04-00 
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S= LS acoso e Rune 
SQN MNS SENSE 


SAWMAGMTIIIAAOW 


45 4D 24 43 45 54 —* 
4E 49 24 43 45 54 000002F 
54 56 24 43 45 54 0000030 

2 


43 45 54 2E 
OA 98 9900052 pata: . 


61 i 9% 8 6F ; 


73 65 67 61 70 20 Soscessa*e1eEengS” 


-11 TECO 
e data 


16-SEP-1984 X/VMS M v04-00 Pa 2 
18-SEp=lobe $8:1ar0s EtECOrsRcafEcoNAt.maR:3 oe 4%, 

4 - lon *c<0> : all of 128-159 
119 ‘tong *c<0> i all of é = 
9 . Long ass ; ; Ht 3 

lon 
420 208: sity — 
sviteh bist: file B*86 switches 
4 elong “a/CR/, fab$m_ tec fmt !< fab a16> 
424 -long “a/-CR/, fab$m_tecfmt!< @16> 
425 -long “a/FT/, fab$m_ tectmticfab$m, ftna16> 
4 § -long “a/FIN/, fab$m_tec fmt !<fab$m_ftnal6> 
4 -long “a/B2/, fab$m_tec 
4 8 -long “a/RW/, ab$m_tecrw 
4 long “a/SH/, fabSm_tecsh 
430 elong “a/SHR/, fab$m_tecsh 
431 long “a/NV/, fab$m_tecnv 
4 § -long “a/STM/, fab$m_tecstm 
& elong “a/VAR/, jebsa_ tecvar 
: ¢ - long . 
4 — colon_eg_list: 3; 2&6 spe ecial functions 
4 tong 10S, “a/MEM/ : :EGMEMS is ‘'memory’’ | q 
4 3 long gee: “a/INI/ ; :EGINIS is private init’ logical 
4 Long 0$, *a/VTE/ ; :EGVTES is ‘keypad editor'’ Logical 
440 long 408, *a/L1B/ ; :EGLIBS is ‘macro Library’ logical 
$3) long 0, “a/SYM/ ; :EGSYM$S is DCL symbol manipulation 
108 10$: -ascid ‘‘TECSMEMORY'’ 
444 208: ascid ‘‘TECSINIT"’ 
445 308: ascid ‘‘TECSVTEDIT’ 
446 40S: ascid ‘‘TECSLIBRARY" 
447 
228 align byte 
$29 indir_cmad sine “rece ; defaults for ‘‘ei’’ files 
432 .equate indir _cmd_dns, .-indir_cmd_dna 
453 indir_cmd_dns: 
454 quota_msg_desc : over, quota message 
285 9 Sescid. <13><10>"RExceeding disk quota’ . 
39 
457 sizing_msg_desc: 3 memory sizing message 
458 s. + ascid "* pages)" , ’ . 
459 
269 org tecodatini 
i -align long 
464 


getdvi_itmist: 


3; SGETDVI item List 


T 


TECONAT VAX-11 TECO 
VSS -02 Pure data 


A 0004 
00000000 0000 y 
00000000 p 


54 55 50 4E 49 24 53 59 53 
00000009 


00000058 "00000009 


54 55 50 54 55 4F 24 53 59 53 
0000000A 


00000069'0000000A 


4F 43 24 53 59 53 ooops? "?! 0E0000' 
44 GE 41 4D 4D 


4F 43 45 54 00000096'010E0000' 
4F 43 45 54 000000A2'010E0000' 
49 4E 49 4F 4E 2F OO0000AE'010E0000" 


45 52 43 4F 4E 2F ————4 


4D 45 4D 4F 4E 2F cosscece "si eEsery" 


45 50 53 4E 49 2F Gocnasos “e105 p08" 


ter_i *2 
—* 


ter_o_devnam_f 


ter_c_devnam: 


ini_dcd_lognam: 
cli_verb_teco: 
cli_no_ini: 


cli_no_create: 


cl{_ne_sesery: 
-ascid 


a aM alan ô ot ot of of of ot of of af of of at af at at at at at at at ot ot ot ot a ee — 


- tS _— M#OOOOOOOOOOO WOWWOO0O0O0O0O0OO 000969000909 09 090909 SINISE AOAAO 


cli_inspect: 
a 


N OWS WN OOONOUSWIN OO DNOUS WIN 0 OCONEE WN OOO NOAU EWN" OOONOu 


wa 


18-$E6=198¢ 98:18:83 UEC 


-word 4, fers aeyvetace 


.lon devc 
word 7 vis. evtype 
— yet 
wor mere deybufsiz 
. lon dev but 
ewor dvi$_de Pitter 
. lon devd epen nd, 
wor dvi$ 3°" epend2 
. lon evdepen 
ewor spends: evnam 
. lon dginan 
-wor dvi$_unit 
unit, 0 


al 
war 0, 6 


align byte 


3; terminal 
’SYSSINPUT" 


ter_i _devnen.. fns = .-ter_i_devnam_fna  ; terminal 
ter_i_devnam: 3 terminal 


-long ter_i_devnam_fns, ter_i_devnam_fna 


3; terminal 
aecti. ees yS$oUTPUT"’ 


ter_o_ devnea,. fns = .-ter_o_devnam_fna ; terminal 
ter_o_devnam: 3 terminal 


-long ter_o_devnam_fns, ter_o_devnam_fna 


3; terminal 
-ascid ‘'SYSSCOMMAND"' 


eascid ‘‘TECO" 
verb for 


-ascid ‘‘TECO" 


.ascid "'/NOINI" 


~ascid ‘'/NOCREATE"' 


**/NOMEMORY"® 


scid ‘‘/INSPECT’ 


Cyne o V04-00 


p T 
0.S Sac TECONAT. MAR; 3 * 3 “ 


input device name string 
input device name Length 
input device name desc 


output device name string 
output device name Length 
output device name desc 


command device name desc 


logical for private command decoder 


EDIT/TECO 


qualifier for /NOCOMMAND 


qualifier for /NOCREATE 


qualifier for /NOMEMORY 


qualifier for /READ_ONLY 


J 12 
v85.02. Pure date” 18-SEP-1584 18:12:83 YECOMERCSTERoNAT-Aae:s "88%, vi 


18 cli_null: 3 a null string for string buildi 
000000EE'010E0000° — * ——* — rene 
cli_space: 3 @ space for string buildin 
20 000000F6'010E0000' otpaceiacie —* — 
F cli_equals: 3 an equals sign for string buildi 
3D 000000FF'010E0000" OOF — . sass — — 
Li_dollar: 3; a dollar si f tring buildi 
24 00000108'010E0000° Bee eeeeescié "S"* 7” ——— 
cliLinit: ; logical name for command file 
eascid ‘‘TECSINIT’’ 


4E 49 24 43 45 54 waited tics | wy | 1 


- - id She p 


cli_qual_output: 
* Run "OUTPUT" 


cli.qual_read_only: 
* vascid "READONLY" 


31 50 00000158'010E0000' 


1 
1 338 cli _qual_command: 3; to fetch /COMMAND qualifier 
4E 41 4D 4D 4F 43 Go000121"010E 0000" 1 4 ~ascid ‘‘COMMAND'’ 
5 
§ cli.qual_create: ; to fetch /CREATE qualifier 
45 54 41 45 52 43 00000130'010E0000' -ascid ‘‘CREATE"’ 
§ cli_qual_memory: 3; to fetch /MEMORY qualifier 
59 52 4F 4D 45 4D 0000013E'010E0000' i 9 ~ascid Wnoky 
4 tg cli_qual_execute: ; to fetch /EXECUTE qualifier 
4 eascid ‘EXECUTE’ 


3 to fetch /OUTPUT qualifier 
54 55 50 54 55 4F 00000165'010E0000' 


: to fetch /READ_ONLY qualifier 


DPD ELLE 


M—OOCONOuUsS 


— —— = tS SS SS = 2 Ss SS 4 ss SS Ss ss SS 3 — — — —— 


4F SF 44 41 45 52 pence rs°sierseey” 


V89.02" 


VAX-11 TECO 4 
Impure data 


17¢ : -sbttl Impure data 
1 § org tecoctl 
: -align quad 
te tatus1: 
00000000 00000001 i — 
ter tatus2: 
00000000 00000001 999 — — 
1 t : 
00000000 00000000 991 ¢ — 
1 6 ter_i_status: 
00000000 00000000 1 A -quad 0 
re ter_i: 
00000000 0 7 long 0 
00000400' . 4 of long ter_i_buf 
09 é 318 ter_i_nor8_trm: 
00000020° 00 2 . long 208-108 
00000030' : 6 4 . long 08 
FFFFEOFF | ? ; , 108: elong “cx $1982) ~ 
0034 5 § <1a10>! - 
034 <1a11>! = 
; 4 4 <1a12>> 
oe a 32 
30000001 O5¢ 5 slong < £18<96-96 
FFFFFFFF hs 5 } - long *c<0> 
FFFFFFFF 044 90 - long *c<0> 
FFFFFFFF 48 91 -long “*c<Q> 
FRFFFFFF 4 36 - long *c<0> 
: 37 20$: 
5 95 tmp_string: 
5 96 -desc tmp_string 
genes. Hh Rea a 
800099 Rape “ blab 63> - 
9 338 tap_string?: 
9 9 desc tmp_string 
3F 9 long tmp_stringé siz 
AO’ 009 lone fap_string _buf 
DF 7 -blkb 63 
: $i align long 
E ; ter_i_nor_trm_ptr: 
00000200° O0E 604 -Tong” ter_i_nor7_trm 


18-SEP-1986 98: 


>>! - 


6>>> 


11 
16 


Pete te 


: AX/VMS_M 4- T 
Bs TEMS ease oNge-O8,.s «= Page. 28, vi 


terminal output i/o status block #1 
terminal output i/o status block #2 
terminal output position 10SB 
terminal input i/o status block 


terminal input buffer descriptor 
no initial size o ig 
but pointer to input buffer is set 


normal 8-bit terminator mask 


all of 0⸗* 31 except bs, 
tab, 
vt, 
tf 

none of 32- 63 

none of 64- 95 

none of 96-127 except gccent grave, 
e 

all of 128-159 

all of 160-191 (initially...) 

all of Soe tt (initially...) 

all of 224- (initially...) 


a temporary string... 


another temporary string... 


3; normal input terminator mask pointer 


(pre-set) normal 7-bit input 


v85.02. Inpure date 18-SEP-1984 —— 


E4 5 

00000068 Ee i soved.op ; saved sp value for error exits 
E eo 

00000000 es i —— sae 0 3; amount of memory still free 
EC 61 : 

00000000 FE i ——— 0 3; count of consecutive control/z's 
0000 OF 616 rere et word 3 ai cil a control 
output _sys_vfc: 3 n 

0001 oF ei put. ys vi sys$output pr contro 
OF4 620 .align word 
OF4 621 
0000 ord ° § ter_i_chan: 4 ; channel # for terminal input 
-wor 
F 624 
0000 org ° 2 ter_o_chen: e's ; channel # for terminal output 
.wor 
OF 627 
0000 a ° 8 ter_c chan: . i ; channel # for terminal control/c ast 
-wor 
OOFA 630 
ae 631 ter_o_unit: ; terminal output device unit 
0000 ae ° § «word 0 
OFC 638 ealign byte 
OFC 635 
00 bce 3 § ctrl flop: 0 ; exit on second control/c flip/flop 
-byte 
> 3 
00 orp 63s etrta_tteg: 0 : control/o in effect flag 
-byte 
OFE 641 
00 Ore $46 ter_o_force: 0 ; terminal output being forced flag 
-byte 
OFF 644 
OFF 645 ter_o_pend: 3; terminal output pending count 
FF 44 648 byte -1 
1 p $38 exiting. flag: : exiting fla . 
01 ! : 630 byte 1 ; preset to force CTRL/T disable 
101 1 .align lon 
106 o3¢ ——8 
104 655 err_msgvec: 3; error message vector 
00000110 19 é ¢ eblkl = 3 
11 -noshow meb 
11 § 
HG 38 —— : athecate’s"#ah (90 
11 6 faceget. - : 9} tow gets 
11 661 fna=file_spec_buf, - ; file name will come from here 
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11 $6 neas input. nor_nam, - 3 catch the soeu) pene filespec 
11 6 — ‘© 3; (pre-set) attributes of japlied ce 
11 rt me he : (pre-set) record format of variable 
i} 5 nape nput . nor_xab 3 catch the protection code 
16 ee) -show meb 
1 88 equate fepst tecsts, -~input_nor_fab ; our private fab status longword 
0 fab$l_tecsts 
00000164 016 670 ; private status longword 
Age 67 eaettt fabst_ tecrab, -sinput_nor_fab ; cur private fab to rab pointer 
00000230' 0164 33 -long input_nor_rab 3 private pointer to the correct rab 
A 67 seagate fabsq_ tecque, --input_nor_fab ; our private fab data Line queue 
ecqu 
00000170 1 674 * cBtka 3; private data line queue 
} 675 #eyitt. casos tecdsp, .-input_nor_fab ; our private fab dispatch longword 
00000174 50 676 blkl 3; private dispatch longword 
Dogs 67 —WB fabst_ tecctl, .-input_nor_fab ; our private fab control bytes 
ecc 
00000178 0174 67 ebLKL 3 private control bytes 
—93 8 ahi — 
3 680 -noshow meb 
17 oes input _nor_nam: : nam for normal input 
17 6 $nam - 3; allocate a nam 
17 684 rsa=input_nor_spec, - ; resultant filespec goes here 
3 5 rss=nam$c_maxrss ; allowing the maximum length 
51D ea input_nor_xab: : xab for normal input 
01 tt] $xabpro ; allocate a protection code xab 
0 0 690 input_nor_rab: 3; rab for normal input 
9 691 $rab - 3; allocate a rab 
0230 $36 fab=input_nor_fab, 3; for — input fab 
0230 69 rhb=input_nor “els, s - 3: use this vfc buffer 
0 694 rop=<loc,rah>, = ; use locate mode & read ahead 
695 u f=input_ nor_buf, ; use this record buffer 
+ $36 usz=input_nor_siz : with this size 
74 698 output_nor_fab: : fab for normal output 
74 +44 $fab - ; allocate a fab 
74 9 facscout. ,trn>, - 3 a tow puts fruncete es 
24 O77 fna=file_spec_buf, 3 file name w come from here 
7% «67 § —— nor “nan, - 3 catch the ——— —U 
7% 67 ergnee 3 organization is sequentia 
C4 704 .assume fab$l_tecsts oa -*output_nor_ fab. 
000002c8 C4 705 ebLkKLO private status longword 
ce 7 — .assune fab$l tecrab eq —— nor. fab’ 
00000334° 02C 7 .long” output_ private pointer to the correct rab 
cc | 2 8 assume tab$q_ tecque eq .-dutput_nor_ tab’ 
00000204 cf —9 -blLkq” ; private data Line queue 
D4 at output_nor_nam: 3; nam for narast output 
D4 \¢ $nam - 3; allocate 
D460 71 rsa=output_nor_spec, - ; resultent fi lespec goes here 
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; af rss=nam$c_maxrss ; allowing the maximum Length 
4 8 output nor rab: : rab for normal output 
4 1 $rab - 3 allocate ara 
4 18 fab=output_nor_fab, 3; for normal output fa ap 
4 1 rop=<tpt ,woh> 3 use truncate on put & write behind 
7 indir cog fab: : fab for ‘'ei"’ 
7 § fab - 3 allocate a fab 
7 dna=indir_cmd_dna, - 3 defaults string is '.tec’ 
7 4 gnssindir. cmd_dns, - ; which is this long 
7 4 5 fac= ſt 9} tow gets 
7 § fnaztile spec. ms - : file name will come ices her 
7 7 fns= - i_ded - : (pre-set) for ''SYS$LOGI N: TECO" 
7 728 fop=s 3; (pre-set) sequential cate cotton 
7 729 nenstasie. ae nam, = 3 catch the resultant filespec 
7 730 rat=cr, - : (pre-set) attributes of implied cc 
8 7 4 1 creeser - : (pre-set) record format of variable 
7 § shr=get : (pre-set) sharing is other gets 
03¢ 733 .assume fabSl_tec sts eq .~indir_cmd_fab 
00000000 03C 734 ⸗ ong : (pre-set) private status longword 
8 CC 735 .assume fab$l_tecrab eq .-indir_cmd_fab 
00000440 O3CC 736 nore ce md_rab : private pointer to the correct rab 
308 737 .assume fab$q_ -tecque ¢ —— cmd_fab 
000003D0'000003D0" 03D 738 108: .lon 1 : (pre-set) private data line queue 
D8 739 .assume tabs — eq, rindi. cmd_fab 
00000891' 0308 740 300g yt. ; (pre-set) private dispatch longword 
O3DC 741 .assume fab$ ategetlie ed, bes Fy cmd_fab 
00 00 00 OA Bars og ebyte » © : (pre-set) private control bytes 
O3EO 744 indir_cmd_nam: : nam for ‘ei’ 
O3E0 745 $nam - 3 alloc! a nam 
ti rs rsazindir_cmd.---c, - ; resu’ saat filespec goes here 
788 33 rss=nam$c_maxis. : allowing the maximum Length 
—9 749 indir_cmd_rab: : rab for ‘ei’ 
44 750 $rab - ; allocate a rab 
0440 751 fab=indir_cmd_fab, - : for “ei'’ fab 
0440 O36 rhb=indir_cmd_ “vfc, ad 3; use this vfc buffer 
88 75 rop=<loc,rah>, - 3; use locate mode & read ahead 
ret 754 ubf=indir_ cmd. buf, - 3; use this record buffer 
rth £3 usz=indir_cmd_siz 3; with this size 
484 739 input_alt_fab: : fab for alternate input 
484 7 } $Tab - 3: allocate a fa 
484 75 fac= Sit : allow gets 
484 760 fna=file spec. buf, - : file name will come from here 
484 761 nam=input_alt_nam, - 3 catcn the resultant filespec 
484 76 rat=cr, =" 3; (pre-set) attributes of implied cc 
484 76 rfm=var, - ; (pre-set) record format of variable 
484 764 xab=inpu tiolt t_xab 3 catch the protection code 
404 765 .assume fab$l _tecsts * *ĩnpũt alt. foab 
00000408 04D4 £66 : private status longword 
4D assume fabsl otegrad oa eq Ter we alt_fab 
000005A4° 04D 76 ong nput_ 3; private pointer to the correct rab 
4DC 6 assume fabsq_ tecque 30 -~input_alt_fab 
000004E4 O4DC 770 -blkq 3 private data Line queue 
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4E4 -assume fab$l_tecdsp eq .-input_alt_fab 
QOO004ES 04E4 : ebLkL eee 3; private dispatch longword 
rh} f -assume fab$l_tecctl eq .-input_alt_fab 
O00004EC tt, 73 obLKL ; private control bytes 
4EC input_alt_nam: 3; nam for alternate input 
nam = ; allocate a nam 
tee | $49 $ tt 
4EC ah rsa=input_alt_spec, - ; resultant filespec goes here 
fe 444 rss=nam$c_maxrss 3; allowing the maximum Length 
54C 781 input_alt_xab: ; xab for alternate input 
rf if § $xabpro ; allocate a protection code xab 
5A4 784 input _alt_rab: ; rab for alternate input 
Bene £8 $rab - ; allocate a rab 4 
SAS 7 § fab=input_alt_fab, - ; for altornate input fab 
OSAS = 78 rhb=input_alt_vfc, - ; use this vfc buffer 
84 788 rop=<loc,rah>, - ; use locate mode & read ahead 
5A4 = 789 ubf=input_alt_buf, - ; use this record buffer 
4 ooo usz=input_alt_siz ; with this size 
OSE O86 output_alt_fab: : fab for alternate output 
5E 79 $fab - ; allocate a fab 
5E 794 fac=<put,trn>, - ; allow puts & truncates 
268 795 fna=file_spec_buf, - ; file name will come from here 
OSE 796 nam=output_alf_nam, - ; catch the resultant 45 
05 797 org=seq 3 organization is sequentia 
6 798 .assume fab$l_tecsts eq .-output_alt_fab 
0000063C 06 799 ebL kt : private status longword 
tt: B30 ~assume fab$l_tecrab eq peoutputolt. feb 
000006A8'" 063C 4 «long output_alt_ra ; private pointer to the correct rab 
8 . assume fab$q_tecque eq .-output_alt_fab 
00000648 2 8? bl kq ; private data Line queue 
ded 09 output_alt_nam: 3; nam for alternate output 
64 $ $nam - ; allocate a nam 
64 8 Poewouteut Ott 200k. - ; resultant filespec goes here 
7 8 rss=nam$c_maxrss : allowing the maximum Length 
6A 10 output_alt_rab: ; rab for alternate output 
6A 11 $rab - ; allocate a rab 
6A 1 fab=output_alt_fab, - ; for alternate output fab 
ey: 1? rop=<tpt,wbh> 3 use truncate on put & write behind 
6EC 15 en_fab: : for for ‘'en'’ 
6EC 18 $fab - ; allocate a fab 
6EC 1 fna=file_spec_buf, - : file name will come from here 
8 C 18 nam=en_nam : “'en’’ name block 
C 19 .assume fab$l_tecsts eq .-en_fab 
00000001 6 9 long fabSm_teceof ; private status longword (fnf) 
74 § en_nam: : nam for ‘en’ 
74 $nam - ; allocate a nam 
74 4 esa=en_spec, - ; en’ parse — 
74 5 ess=nam$c_maxrss, - ; allowing the maximum Length 
— 
7 rss=nam$c_maxrss ; allowing the maximum len 
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7A 
7A § input_sys_fab: : fab for sys$input input 
7A 9 ~ “$fab - 3 ol} pcate , fa F 
7A fac=get, - ; a gets 
7A § fna=ter_i_devnam_fna, - ; f te nine as for g te input 
7A fns=ter_i_devnam_fns, - ; with the correct length 
7A 4 retecr - ; (pre-set) attributes of implied cc 
7A 5 rfm= ; (pre-set) record format of variable 
7F § assume 1 atecsts, ea -*input_sys_ fab 
00000000 O7F ong ; (pre-set) private status longword 
7F4 .assume fab$ _tecrab 3 a a: sys_fab 
00000808" gre ? — jabs. —— sys Vineet don, Yeh 3; private pointer to the correct rab 
-~inpu 
000007F8°000007F8" O7F 4) ids: 10, 3. j : (pre-set) private data Line queue 
tt 4 -assume ‘abs _tecdsp eq .*input_sys_ fab 
00000891" 080 4 getbyt_first ; (pre-set) private dispatch lLongword 
8 04 44 .assume tabs ateretl'e ea, ‘ 4 PY sys_fab 
00 00 00 OA 8 8 4g byte 0, 0 : (pre-set) private control bytes 
080 47 input _sys_rab: ; rab for sys$input input 
it 48 "Stab - ; allocate a 4 ra F 
80 49 fab=input_sys_fab, - ; fors syasinput, in ingut fab 
080 50 rhb=input_s : vic. - 3; use this vfc buffer 
080 51 rop=<loc Fen - 3 use locate mode & read ahead 
080 26 ubf=ter_ {b ~ 3; use this record buffer 
OBec 27 usz=ter_i_ att 3 with this size 
4C 55 output_sys_fab: ; fab for sys$output output 
Ope 2§ fap - 3; allocate a fab 
zit 5 fac=put, - ; allow puts 
84C 58 fna=ter_o_devnam_fna, - ; file name as for 2* output 
084C 59 fns=ter_o_devnam_fns, - ; with the correct Kenggh 
084C 60 fsz=2, = : fixed control area is 2 bytes 
084C 61 org=seq, - 3 organization is sequentte 
084C 86 rat=prn, - 3 use print file form 
rfm=vfc : format is variable w xed contro 
Oboe o7 fm=vf f t i iabl — fixed L 
089C 65 output_sys_rab: 3; rab for sys$output output 
O89 66 mre Sab - ; allocate a re ra , 
9C 6 fab=output_sys_ fab, - $s fer this output > outeyt fab 
9C 68 rbf=output_sys_buf, 3 ouse 1s output buffer 
9C 4 rhb= =output. Sys. “Wie, - - 3 use th rint central buffer 
9C rsz= 3; «no Rai B record initially 
: 4 rop=wbh 3; use ite behin 
: a -show meb 
E 75 file_spec opr : file specification options 
000008E4 ey A BLL 
E4 78 file_spec_swt: 3; file specification switch 
000008E8 8 7 ~BLkl 
Hf ter_oob_msk: ; terminal out-of-band re-enable mask 
00000000 4, -long 0 ; preset to nothing to re-enable 
EC 4 .align byte 
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EC 5 
EC file len: 3 fi 
0000080 EC ~Spec ten file specification length 
ED file s * buf; zZfile specification b 
45 54 3A GE 49 47 GF 4C 24 53 2? 23 EB 0 ‘i ascii ""SYSSLOGIN: TECO"’ 3 ipre-set * — GIN: TECO$) 
BORO Og OE FB 91 ini_dcd_fns = .-file_spec_buf 
OO9ED 4 38 «blkb nam$¢_maxfss+1-<.-file_spec_buf> 
9ED 94 input_nor_ spec: : Ltant fil f i 
OOOO0AEC Hi 36 4 -BLkb = nam$c_maxrss eee nae a ee 
AEC 97 output_nor_spec: 3 Ltant fil f 
00000BEB art 38 — ebTkb nam$c_maxrss —S — eer eee 
EB 0 indir_cmd_spec: 3 Ltant fil for ei“ 
OOOO0CEA BEe $ J “Biko nam$c_maxrss Ieper — 
CEA 903 input_alt_spec: 3 Ltant f Lt te input 
O0000DE9 cea one “Bikb nam$c_maxrss — Phe Petit set ont ti 
DE9 906 output_alt_spec: : Ltant f lt t tput 
OOOODEES ODE $07 ’ “bTkb , nam$c_maxrss ee — 
EE 909 en_spec: 3 "en" fil 
00000F E7 a 319 * -blkb nansc naxrss ee — = 
FE? 912 en_occur: : en" fil 
000010E6 Ore? 318 eee bike nenSe_nesres otlgcmteitipgsae! oa 
10E6 915 input_nor_vfc: 3 l input vfc buff 
oo0010F2 10EG 916 Bh input.vtc_ste ee —— 
a ais indir_cmd_vfc: : ei“ vfc buffer 
000010FE : re 444 -Blkb = input_vfc_siz 
ior 921 input_alt_vfc: : alternate input vfc buffer 
0000110A 0— -Blkb = input_vfc_siz 
110A 924 input_sys_vfc: : sysS$input vfc buffer 
00001116 110 935 Se slke tnout.vfc_ste iat i bia Ma 
111 5 org tecoctlini 
align long 
etdvi_info: : SGETDVI returned information 
00000001 3 § evclass: : device class 
4 devtype: : device type 
00000002 0001 985  btkb ae 
3 § devbufsiz: ; device buffer size (width) 
00000004 w 
90000008 r 5 devdepend: ; device dependent bits 
8 4 re : device dependent bits #2 
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FEN Op OE 8 4 ebLKL 
C — getdvi_info_len = .-getdvi_info 
C 44 devnam: ; device name string 
0000004C 43 B22 -blkb 64 
4C 23 unit: : device unit number 
00000050 4 8 ebLkL 
; 29 -noshow meb 
5 26 cli_req_getcmd: : request block to get command Line 
5 clireqdesc - define cli request descriptor block 
Ht $35 ratype=cli$k_getcmd ; to get the whole command Line 
44: 928 -show meb 
age z33 cli_result: ; cli parse result string 
0000 8 C 32 -word 0 
0 6E 60 byte dsc$k_dtype_t 
8 of 42 byte dsc$k_class_d 
000000 —* 38 -long 0 
0000 ot ace cli_command_Line: ; built up cli parse command Line 
wor 
0 8 208 «byte dsc$k_dtype_t 
09 4 96 -byte gecee clone 
0000000 078 968 . Long 
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6 -sbttl Permanent 1/0 buffers 
7 4 org tecobuf 
ee -align page 
4 ter_o_buf1: ; terminal output burfer #1 
00000200 Vbikb  ter_o.siz — Mena By © 
79 ter_o_buf2: 3; terminal output bui*== #2 
00000400 wbikb  ter_o.siz each 
4 Hf ter_i_buf: 3; terminal input buffer 
1B 59 4D 04 3 ascii ‘MY''<27> : (pre-set) initial connend string 
$ 4 art. ier i_buf_pre, .-ter_i_buf 
Te: 
00000600 49 2 4 ter_i_siz-<.-ter_i_buf> 
8 2 input_nor_buf: ; normal input record buffer 
00000E00 288 4 3 -Blkb = input_nor_siz 
E00 990 indir_cmd_buf :; “‘ei’’ record buffer 
00001600 8 44 -Blkb = indir_cmd_siz 
1600 398 input_alt_buf: ; alternate input record buffer 
00001E00 1988 ogo -Blkb = input_alt_siz 
1E€00 336 output_sys_buf: : sys$output output record buffer 
00002000 1600 99 -bTkb output_sys_siz 
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; 99 .sbttl Main startup entry point 
} org tecoexeini 
OFFC ! 7 sentry tec$teco, “m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> ; startup entry point 
! 5 .sbttl Initialization code 
0 ! $ 3; set up permanent pointer registers 
5A 1 3 6 1 § mnegl #1, r10 : junk up the ctl$al _cmcntx pointer 
5B 00000000'EF E S ; } 9 movaw r5set, ri1 : point to teco'’s read/write area 
: ! \¢ 3 do default read/write area setup 
QOOOOOOO'EF O000'S8F 8B sf 1014 movw #io$m_noformat, io$bin ; set ‘‘how to do binary output" 
00000000‘ E QOOO'SF 8B 15 1015 movw #fioSm_ canctrlo, io$cco ; set ‘‘how to cancel control/o" 
0000' 88. F B Ht; 1918 movw #spset, w “tecosp( Cell) sg ae * 21 reset value 
0000'CB QOOO'S8F 8B 0 101 movw #pdisrt, w*tecopd(ri1) ; * ae 3 start 
00° O00°'SF 8B 0 1 18 movw #odisrt, b*pdl cr 1) 3 ey init 
0000'CB 4 F B60 00 101 movw #schsrt, w*schbuf(r11) ; set teco's — buffer start 
0000'CB B05 ‘SF B60 8 1020 movw #filsrt, w*filbuf(r11) ; set teco's filename buffer start 
0000'CB 0000°8F B80 +9 1021 movw #tagsrt, w*tagbuf(ri1) ; set teco’s tag buffer start 
00' Babs ae 047 1 ¢ movw #inpnor, b*inpntr(r11) ; set input pointer to normal input 
00°AB 0 3. F 8B pee 10 movw —*2* b*oupntr(ri1) ; set output pointer to normal output 
endl 000 ' SF 4 8 122— movw cost wapgeergse tt 3 set corey it Jump gry table 
° ‘CB 3 SA 10 5 movaw * 8 ze(ri1), r ; get start of fre 
51 00001 ea. OSF 1 — mov l #initial_siz, ri : ues initiat text “put ferte-res sizes 
00'aB. 30 5 66 1 movw 0, b*txstor(ri1) : set start of text storage 
G0’ 2} B 6A 1028 movw le b*zmax(r11) 3; and its size 
5 7. of 1029 addl rd 3; ~=otthen skip its size 
a's 9 8 0 1030 movw ro: aerator ietti 3; set start of q-register storage 
>< 8 1031 addl 3 then skip its (trial) size 
ggoor rrr F re: 78 #1 § subl 0, #65535, re 3; find amount of memory still free 
OOE8' CF 90 OO1FF BF C 0 1 bicl #512-1 r2, w*still_ wees a store rounded down to page multiple 
5 goes" a: O8A 1034 subl wPatill free ee. thes find the remainder 
00° AB 1 Al F 1035 addw5 srl, b*qm rue q-re {ager storage size 
00°AB ., OBO BE BO 0094 1056 movw 5 —8 —D set default "et" fla 
00° AB F 8F 9A 1 movzbw * a/_/, b* neceti) ri is a symbol character” too 
"AB 1 at oF 1 8 aned B*out dne(r11) 3 say all sorts of out a ane 
51 OO2C'°CF 1 C 3 1 add 5 #13878" w*ter_i_nor8_ trm+4, rl; address bits 128 5 of mask 
2 D4 AD 1040 clrl ; 3; start at relat ve) b 
00 8 E OAB 1041 10$: bbss re F 9 20$ 3 canara that thi s bit is set 
000 "EFS — AF 1042 20$: tstw t(ré) 3; a hex pair for conversion? 
; 2 Be § ' 8 (r1), 308 3 yes. peeve 5S the » t set 
cc r el), 3 no, clear 
—E7 52 O $0080 F F2 C 1045 30$: aoblss #128, r2. 10$ : loop for all heb bits.. 
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; get terminal input device's characteristics 
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3 get terminal input characteristics 
; get Cov'ce characteristics 
5 ter_i_devnam, - ; of term {ne} inoue device 


{talsteu® vr tmist ; using this item List 
SHSHL 
PUSHL 
PUSHAL : wrferet 3 itmlst 
PUSHAQ devnam 
MOVZWL 
PUSHL 
J. — 
r0, 20$ ; non-terminal if any failure 


w'devclass, #dc$_term : a terminal? 
20$ 


e 
Pteetoccrsle, "> i devdepend 108 3; lowercase? 
#tec 3 stypetrtty yes. allow lower case input 


s*#ilatec$v —3*⁊ 
+ ie channel for terminal input 
“devnam=w*ter =! genunen. -;3 22 —* device name 


etype( rit 


crease et iycha n : into terminal input channel 
PUSHAW w*ter_ { — 
PUSHAQ w*ter 
mAs #4, —A 

uccess _else_ die : abort unless success completion 
b0$ 3; go continue 


#tec$v_et$lc, — otygetentt lower case for non-terminals 
s*#latec$v_et$lc, etype(eit) 


fab=w He sys_fab ; “SysSineut 


MtMPT® G*sySsoPen 
Ww hes 333 Me⸗⸗ Stu. J. err_msgvec+8 ; save the STV value 


y input ec abort Unless success completion 

input. sys_ Oot rabsb _rfm, #fabSc_vfc ; vfc record format? 
F — e 

irass. fsz, r0 —* set bad vfc otag error 


yo gnput. oy fab+fab$b_ tsz, Prinput. vfc ui vfc size correct? 
0$ nope, go die w th an error 
wi input_ sys_fab+fab$b rtm, ai tabse _stm ; stream record format? 


"renee cr, w*input_sys_ fabs fabsb rat ; yep. set implied lf/cr 
- i connect 
abew' input. sys_rab ; toit 


iss. mrMPT® ti sf S8cONN CT 
w “input_s s_rab+rab$l Sty, w“err_msgvec+8 ; save the STV value 
success 3 sé_die : ener t Unless success completion 

e continue 
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1083 ; get terminal output device's characteristics 


1 
1 etdvi_ter_o: ; get terminal output characteristics 
1 § . $getdvi_s - : get device characteristics 
1 evnam=w*ter_o_devnam, - ; of Serpine} 2* device 
1088 talsteu*getdvi. tmist ; using this item list 
7 7c CLRQ -(SP) 
8 dD A PUSHL # 
: DD C PUSHL @# 
000 CF BF 5 PUSHAL w“getdvi_itmlst 
073'CF F PUSHAQ w*ter_o devnam 
E 3¢ 8 MOVZWL #0,-(SPY 
dd PUSHL 
00000000 ' GF FB CALLS #8,G*SYSS$GETDVI 
8 DD 1089 ushl 0 3 guess at no terminal data to look at 
73 5? 1090 Lbc r0, 70$ 3 non-terminal if any failure 
00° 8F weed 73 103¢ ne w“devclass, #dc$_term ; a terminal? 
3 nope 
50 OOOC'CF 9E 193 movab w*devnam, r0 : yep, address the device name strin 
SF 8F 80 91 1094 108: cmpb (r0)+, #ea/_/ 3 H Readin underscore? . 
FA 13 1095 beql ; yes go ignore it 
5454 BF FF AO 861 1 38 cmpw -1(r0), #*a/TT/ : is it 'TTc'’ format? 
F ig 109 bneq 0$ 3; no, so no decode 
OOFB'CF 01A0 41 8F 8 1 38 subb3 #*a/A/, 1(r0), w*ter_o_unit+f 3; set controler # * 256. 
OOFA'CF OO4C°CF AO 109 addw wunit, we ger -o_un ; plus unit number 
50  0004'CF DF 1100 20$: moval w*devdepend, r ; address device dependent bits 
9° 3 1} 1 —* —IA— Cr), 30$ ; lowercase ae 
ecw “euflag(r es, Say no case flaggin 
ee Fe 1108 * “y Stee Hap. ig ( 19 dicate t * ted li 
s ec$v_et3tru, b*etype(r 3 ndicate truncate nes 
00 00'AB 08 ~ €3 bbcs #tec$v_et$tru, b*etype(ril), 300628 


30002$: 
1103 40$: bbc #ttSv_eightbit, (r0), 50$ ; eight-bit? 
1106 bs #tec$v_et$8bt, b*etype(r115 3 ti indicate 8-bit terminal 
bbcs #tec$v_etS$8bt, b*etype(ril), 3 005s 


003$: 
1107 tt bbc #tt$v_scope, (r0), 60$ ; scope? 
11 3 move #getdvi_info_len, w*getdvi_info, errbuf ; save scope info 
1109 movab errbuf+2, (sp) : “and form pointer to the data a +2 
1111 
1112 


05 60 OF €1 
00 00'AS OC E35 


1160 OC 1 
OQOOOOO0O"EF OO00'CF OC es 
6— 00000002'EF 


60$: $assign_ 3 assign channel for terminal output 
devnam=w“ter_o devnam, - ; terminal outut device name 


chan=w*ter_o chan : into terminal output channel 
7E LRQ -(SPy 
F6'CF F PUSHAW w*ter_o_chan 
73° CF PUSHAQ w*ter_o Soyeuse 
00000000'GF 04 £8 CALLS #4,G*SYSSASSIGN 
FERE 3 1113 bsbw guccess_else_die 3; abort unless success completion 
2 Vie brb $ 3; go continue 
1118 708: decw b*euflag(r11) ; no case flagging for non-terminals 
111 bs #tec$v_et$8bt, b*etype(ri1) ; 8-bit mode for non-terminals 
bbcs #tec$v_et$8bt, b*etype(rii), 300048 
300048: 
1118 $create - ; create 
111 fab=w*output_sys_ fab : sys$output 


Ww WNW HMMMMMMMoOCCTCVVTVVTVOCOWWWIOOIOINN>r>>> SPSS er as-is 
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8 

a ẽ x 
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gesc' ee D PUSHAL w* utput 3x8 130 
00000000 ' GF 1 F CALLS #$$.TMP1,G*SYSSCREATE 


v89.02. Initial 
O1OC*CF —O8SB*CE, 90 
EAO 


——=—S00007 =. 


AOVNaNANLSO NM 


1 
a 
089C ff DF 
00000000 ' GF 2. ¥ 
O1OC'CF  O8A8'CF 4 
FE8B' 


eo 
Oo 
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18-SEP-1984 VS:ler0s ETECO SRCITECONAT AAR; 3 ee 45 
w output sys. febefebSl_stv. w*err_msgvec+8 ; save STV value 
success_else_die ; abort unless success completion 


connect - 3; connect 


rab=w*output_sys_rab ; toit 

wegutputasys ce 

#$$.TMP1,G*SYSSCONNECT 

w“output_sys_rab+rab$Sl_stv, w*err_msgvec+8 ; save STV value 


success_else_die 3; abort unless success completion 
3 continue 


00' 8F 0086" 


0078 ' CF 


00000000 ' GF 9 
FES2' 


FF74' 
FE4C’ 


eon 
Oo 


“devnam=w*ter_c_devnam, - ; 
“5 - itmist ; wales this 


0 
> etdvi_itmlst 


A aoe #dc$_term 
10s 
“devnam=w*ter_c +e - 


PUSHAW : ores -¢ en 
%, re"SYSBASSION 


enable_ nti ty ot 
successS_else_die 


MUNN BEE EE 2 es — 


DW OOUMID NW 9  S HOA MNS PAOMOMOOOOOOMO NM 


1986 98:18:05 ERECOSRCSEConatoman:s 89 id, 


: get terminal command device's characteristics 


; get terminal command geegrasterresves 
; get device characterist 
Seraine} command device 
tem List 


; non-terminal if any failure 
3 a terminal? 


: nope 
; assign channel for control/c ast's 
3; terminal command device name 
; into terminal control/c ast channel 


abort unless success gavecee ven 
go enable the control/c as 

abort unless success oh. 
continue 
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v85 02 Initialization code 1 ~$Fb= 38 — TECO.SRCJTECONAT .MAR; 3 . 3) 
4 1103 : pre-load q-register y (command decoder) and z (command Line) if needed 
: aH -enable lsb 
B 1149 pre_load_q_regs: ; pre-load q-registers y and z 
56 OOSO'CF ODE 115 sie — wectinreq.getcmd, r6 3 get address of request block 
6 OF 11 pushal (r6) ; set address of —20 block 
00000000 ' GF ct, ¥ 11 calls #1, g*sys$cli ; go get the command Line 
B 11 tstw re ; the special no command" status? 
j B 1154 bneq 1 ; 3 nope 
021 gp 1 5 brw 2108 3 yep, go continue 
FE34" 30 70 «#11 ; 108: bsbw success else die ; abort unless success completion 
0O'8F 03 Ag { 73 (11 8 cmpb Li$b_rqstattré6), Mcli$k_verb_edit ; is this EDIT/TECO? 
03 13 0978 115 beat 208 yes 
O11E 31 tA 1199 brw 10$ 3 no 
55 OO9A'CF 43 70 1196 208: movaq wcli_verb_teco, r5 ; set TECO verb 
O1EB ; ¢ 116 bsbw 200$ 3 as command Line verb 
0119°CF F Q 1164 pushaq w*cli_qual_command 3; /COMMAND 
00000000'GF 01 FB 9 1165 calls #1, Gog sPresent : present? 
40 50 5? 3 1196 blbc r0, 30$ 3 no, go use /NOINI 
006C ‘CF F 93 116 pushaq w*cli_result ; address result string 
O119"CF 7F 0297 1168 pushaq w*cli_qual_command ; /COMMAND=file 
00000000 ' GF 98 FB 9B 1169 calls a. 9ogt Sdet_value ; have a value? 
36 5 5 A2 1170 blbc r0, 40$ 3 no 
006C 'CF f AS 1171 pushaq w*cli_result : yes. form 
O100'CF 7F O2A9 1178 pushaq w*cli-dollar :  "Sfile’ 
OO6C'CF 7F AD 117 pushaq w*cli_result ; in the result 
00000000'GF 03 Fe 0281 1174 calls #3, g*str$concat 3 using concatenation 
FDEC* 3 B8 1175 bsbw success_else_die ; abort unless success completion 
BB 1176 $crelog_s - ; create a logical 
BB 1177 tblflg = #2, - 3; use the process table 
BB 1128 lognam = w*cli_init, - ; Logica. is TECSINIT 
BB 117 eqlinam = w*clitresult 3; with this equivalence string 
00 D BB PUSHL 
006C ‘CF F BD PUSHAQ w*cli_result 
0109°CF 7F C1 PUSHAQ w*cli_init 
8 DD C3 PUSHL #2 
00000000 ' GF Fa . C CALLS #4,G*SYSSCRELOG 
ag 3 cf 1180 bsbw success_else_die ; abort unless success completion 
0 11 ° 1} ; brb 40$ 3; else continue 
55 OOA6'CF b3 1185 30$: mova “cli_no_ini, 5 ; set /NOINI 
0195 % D8 1184 Bbw 500$ = 3 and 90 add it 
0128'°CF F DB 1185 40$: pushaq w*cli_qual_create ; /CREATE 
00000000 ' GF 1 Fe DF 11 § calls #1, g*cliS$present : present? 
55 oops 4 5 3] i + X te, r5 : ho. set /NOCREATE 
: mova a no_create, r 3 e 
O17 30 Fe 1189 bsbw 2008. ~ ; Mond go add it 
0136°CF F Fi 1190 50$: pushaq w*cli quel memory 3 
000000006 , } FB re 1131 Calls #1, g*cliS$presen : present? 
s rd, ; ye 
55 oore er fe FF 1198 movaq “cli_no_memory, r5 : ho. set fugrenone 
55 OEE er 3. oF 1198 60$ — li 5 : * 99, —5* next separator 
. : mova w*cli_space, r ; set" x 
O6C'CF 7F C 1196 pushee ueclizresuct ; address result string 


TECONAT 
89.02 

0144" 

seemed 

18 

00000078 ' FF oe 

1 

55 OOEE' 


TN BOS MEM OPI MMM YRMPMVO NT Wno—-"NOOKr™”" 


1 
55 =00E6' 
808 : 
0153' 
00000000 ' GF 
06 
00 
00 
16 
0168" 
00000000 ' GF 2 
8 
55 © 00D6'C 
OOE 
A6 = 0074'C 
OC A6__ =—0078'C 
53 adh 
50.1 
51 0000°8F 
52. 0000'CF 
Q0A1 
50.19 
51 08 A6 
52 C Ag 
8 9 
56 «= 0378°CF 
50 0058" Cr 
0 HY 
70 F 


—< 
22 
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22222 


SNM MOOT SF —— —⏑ ⏑ ⏑ 
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FP WAW AWWA UWI ROPONONONOPUNNON) 3 3 3 3 SS SS SI OOOO O00 


SONA O ODNAUE WN 9 ODNAUE WN 0 ODNAULS WHO 0OOn 


70$: 


80$: 


90$: 


100$: 
110$: 


-SEP-1984 02:11: AX/VMS Macro V04-00 Page 
1B-SEp=lobe $$:iasos EtRCOrsRCaSEcoNAt naR:3 ’ 
ushaq w*cli_qual_execute : /EXECUTE=file 
Calis” #2, gtcl isget value i present with a value? 
poy rd, Obs ; remember /EXECUTE's existence 
¢ r0, ; no 
movl #*a/MUNG/, @cli_command_line+4 ; yes, change verb to MUNG 
bsbw #0 $ ; add the" “ separator 
bsbw $ ; add /EXECUTE’s value 
movaq yng t{ space, r5 ; set as the next separator 
brb 0$ 3 and go check out P1 
pushaq w*cli_result ; address result string 
pushaq w*cli que) output ; /OUTPUT=file 
calls 3 Boge $get_value 3; present with a value? 
blbc r 0$ 3; no 
bsbw 200s 3; yes, add the ‘' '* separator 
bsbw 90$ 3; add /OUTPUT's value 
movaq Mogg equals. r5 ; set ‘'s"’ 
bsbw 00$ ; and add it 
movaq wcli_null, r5 ; set as the next separator 
pushaq w'cli-result ; address result string 
pushaq w*cli_parm_p! 3; parameter P1 
calls 3 gl iset. volve 3 present with a value? 
blbc r 0$ 3; no 
bsbw 206$ 3; yes, add the ‘’ '' or ‘"* separator 
bsbw 190$ ; add Pi‘s value 
blbs r4, 1008 3; all done if /EXECUTE exists 
pushaq w*cli_qual_read_only ; /READ_ONLY 
calls #1, Gogg spresent 3; present? 
blbc r0, 100$ 3 no 
movaq w*cli_inspect, r5 3 yes, set /INSPECT 
bsbw 200$ : and go add it 
movw w*cli_command_line, cli$w_rqsize(r6é) ; set command Line length 
movl wcli-command_line+4, cli$a_rqaddr(r6) ; and address 
movzwl b*qrsfor(ri1)> r3 3 get pointer to q-register storage 
movzbl #*a/Y/-*a/A/, r0 ; we're — q-register y 
movzwl #tecocmd_siz, ri 3 get command decoder's size 
movab  w'tecocmd, ré ; and a pointer to it 
sbw 8 ; go load a g-register 
movzbl #*a/Z/-“a/A/, r0 ; we're load ng Q-register z 
movzwl cli$w_rqsize(ré), ri 3; get command line's size 
movl cli$a_rqaddr(ré6), r2 ; get a pointer to command Line 
bsbw 180$ ; go load a q-register 
moval w*indir_cmd_fab, r6 3 get the indirect command fab | 
getdesc tap_string. r : reset & get desc for temp string 
movab w*tmp_string_buf, r0 
movil 0, -Tr0) 
movzwl #tmp_string_siz, -(r0) 
$trnlog.s - ; translate — 
IAV dcd_lognam, - ; logical name TEco 
rslbuf=(r0F ; putting result into the temp 
PUSHL # 
PUSHL # 
PUSHL # 
PUSHAQ (r0) 
PUSHL #0 
PUSHAQ ini_ded bognas 
ALLS #6,G*SYSS$TRNLOG 


4) 


<= 
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v59. nitialization code “SEP- 716: 0.SR ONAT .MAR; (15) 
—38* Initialigetion cod 1B-SEp=l9be 8:iaros EteCOrsRcaiEcoNAt maR:3 9 5 
0000' 8F 0 E4 1244 cmpw r0, #ss$_notran 3; did anything happen? 
3p jt E9 1245 beat 1%6s * 3 nope, Use pre-set "“SYSSLOGIN: TECO"’ 
FCB9" EB 1 8 bsbw success_else oN | ; abort unless success completion 
2C B6 4=— 4F 434554 BF 8 124 movi #*a/TECO/, atab$l_fna(r6s ; set file name of simply 'TECO"’ 
34 A6 4 F6 1 $3 movb #4, fab$b_fns(ré) : and its length 
FA 1249 1308:  Sopen - 3 open 
FA 1250 fab=(r6) 3; the command decoder file file 
6 OF FA PUSHAL are) 
00000000 ' GF 1 FB FS CALLS #$$.TMP1,G*SYSSOPEN 
3F 50 3 403 1251 blbc r0, 1 ; branch if failure of any type 
03 iF A6 1 0406 1 26 cmpb fabsb_rtm(r6), #fab$Sc_vfc ; vfc record format? 
06 {¢ 40A 1 2 bneq 14 : 3 nope 
Oc SFA 9 4 1254 cmpb fab b_fsz(r6), #input_vfc_siz ; vfc size correct? 
2A =1A 0410 1255 bgtru 60$ 3 nope, so don't use it... 
046 1f ae 9 O44 | 2$ 1408: fe {pbsb.rfa(ré), #fabSc_stm ; stream record format? 
n 3 nope 
1E A6 02 a8 418 1 23 bisb #fabSm_cr, fab$b_rat(ré6) ; slveys say implied Lf/cr for stream 
041C 1259 150$:  $connect - ; connect 
041C 1260 rab=afab$l_tecrab(r6) ; the correct rab 
54 36 0f O41C PUSHAL @fab$l_tecrab(ré) 
00000000'GF 01 FB Bole CALLS #$$.TMP1,G*SYSSCONNECT 
350 €E9 0426 1261 blbc r0, 160$ : branch if failure of any type 
57 ar | ad 43 0429 1 6¢ moval cmdprm, r7 ; get where to store fab pointer 
67 6 8 be g 126 mov l r6, (rr?) ; set file as open 
O8A6" 30 04 1264 bsbw set_filename 3; set the file's name, etc. 
OO'AB 57 60 62 6 1265 movw r?, b*indir(ri1) ; set indirect as active 
44 11 bese ! 66 brb 216$ 3; go continue 
043C 1268 160$: $close - : close 
043C 1269 fab=(r6) ; the (bad) command decoder file file 
66 DF 043C PUSHAL (Fr 
00000000'GF 01 FB Boze CALLS #$$.TMP1,G*SYSSCLOSE 
OO20'CF 03 3C 0445 1270 1708: movzwi #ter_i_buf_pre, w*ter_i ; set count for pre-buffered input 
, 8 BO 044A 1271 movw #2, B*indir(rii) : preset for initial command string 
11 age 3* brb 216$ ; go continue 
OO AB20 31 00 64530 «21274 1808: = movi rf, b*qarray(r11)Cr0] ; set q-reg's size (clobbers next!) 
OO'AB 51 AO QO455 1275 addw ot. far! ) 3 count as q-reg space used 
00°AB 00" B1 0459 1 6 cmpw b*qz(ri1), b*qmax(r11) ; did we run out of space? 
0 1A 3 127 bgtru  abort_exit ; whoops, we 
63 62 51 28 0460 1 £8 move ri, (F2), (r3) : load the q-register 
5 8 3 rsb 3 exit 
8 1281 abort_exit: ; set abort error code and exit 
50 90, Ht 4 1 § movzwl s“*#ss$_abort, r0 ; set a fatal error code 
FCSC* 31 8 brw successS_else_die ; and go exit with it 
55 OO6C'CFE 7E 04 1285 190$: movaq veg} i result. r5 : address the cli result string 
65 7F 04 1 § 200$: pushaq (r5) 3; arg #2 is string to add 
00000000 pore’ 4 rf 5 ! puphaq yqc* i comgand. | ine 3; arg * 9 string to add to 
n calls » g"strS$appen 3 gO append to s 
FC 31 44) 1 brw success.else die 3; error check and entt 
i ! $3 2108: 3 continue 
4 1295 .disable lsb 
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SEP-19 
5 ; clean up and enter compatibility mode 


CO.SRCJTECONAT.MAR; 3 


clean_up_and_start: clean up & enter compatibility mode 
Estw w*ter_o_chan ; is there a terminal output channel? 
—*3 ; nope, so no mode(s) to reset 
Sy end ; save the original characteristics 
att m “hal fdup!tt$m. escape, w*devdepend ; full dup & not escape 
tec$set mode ; go reset the terminal mode(s) 
(sp)+, w*devdepend ; restore original characteristics 
bsbw success_else_die ; abort unless success completion 
$dclcmh_s - ; declare ager egg be mode handler 
“addres=w*tec$cmtrap, - ; traps will come her 
#1 ; and we want “compatibility traps 


— — — — — — — — — — — — — 


; abort merees success completion 
; clearr 

eis r4 ; set r4 f scgpe terminal, saree clear 
: set teco's r5 r/w area pointer 

spset, r6 set to reset the sp stack 

apstsa_ cm!<psl$c _useraps|$v curmod>!<psl$c juseraps su _prvmod> 

tecos ; stack startup pc7psl 

start “see 3 gO purge working set, 8 start up! 


1 
1 
1 
1 
1 
! 
13 
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(16) 


T 
V 


5 


V89.02. Compa 


C 14 
ibility mode trap handler : ~$Eb=1 38 96:16; 3 LEO sRCSTECONAT AAR; 3 soap i?) Vis 
17 .sbttl Compatibility mode trap handler 
org tecoexe 
align page 


—— * compatibility mode traps come here 


emacro other name 

$'name == <<. -60$>/2>+1 
-word tec$‘'name-60$ 

-endm other 


0015'8F 01 51 AF 50$: casew ri, #1, #<<70$-60$>/2>-1 ; ‘emt’ is other... 


MALO 

0000000 

>>>> 

2222 

SSISS 
2———————————————————————————— -@— 


SOOOSGSOOSOSOOSSSSOSSOOOSOSSSOSSSSOCSOSCOSOSOSOSOSOOOSOOSOSOOOL Sf & 


1 
131 
1 
1 
1 
SA 0 3 1324 bl #i_bias, r0, r10 ; form ctl$al_cmcntx pointer 
af 5 A 1325 movzbl Ir: ri i get low byte 9 instruction 
60 146 bict #1, (rd) : pre-clear c-bit in saved ps 
0 $ 3 1 addl WG. -(r0) ; adjust saved pc 
08 51 5 1 8 bbcc #7, r1,_10$ 3; check for automatic ‘'rts pc'’ 
18 BA C 1 movzwl @i_sp(r10), (rd) ; move return address to saved pc 
18 AA : £6 1330 addl a3 i_sp(r{0) ; then ‘pop’ the stack 
1 1 1331 10%: bsbb 20$ 3 go dispatch on exception code 
5 1 § movq (r10)+, rg 3 restore 9. ri 
5 \ movq (r10)+, r : restore r2, r3 
5 1334 mova (ri0)+, r4 3; restore r4, r5 
5 1335 movg (r10)+, 6 3; restore sp, junk r7 
7 6A 7D 1 $ movg (r10), =(sp) 3 stack pe/pat pair 
02 ! i rei : back to whatever... 
OOES'CF SE 00 1 208: movl sp. w*saved_s : save calling sp for error exits 
0003'8F 01 ##%#1C AA AF } ay 30$ casew i codetri0)s MH, n<<40s-$083/2>1 3 enter proper routine... 
: : reference on 
88. 1 4 -word tec$wait-30$ : 1 => bpt . 
8 A‘ 0039 134 .word gas Seusput=308 : ; => jot 
* 0038 1344 word 50$-30$ ; 3 => emt 
OS3F* 003D 1345 -word tecS$input-30$ ; 4 => trap 
: 3F 1 6 40$: 3 reference only 
0423" 31 ? : : brw abort_exit ; whoops, we must abort... 
42 1 8 
42 1350 
42 1351 
42 1 26 
42 1 : 
1354 
1355 
1356 


60$: 3; reference onl 


WOOGHNIPINIPUPINIIV ⏑ ONNODD SNS MD OU" 9 & SF OOOCOMmMm>;n, 


3 new terminal vidth 


4 
4 other width 
119E* 004 eword tecS$width-60$ 
4A 1357 other eight : change 8-bit terminal mode 
1171° QO4A -word tecS$eight-60$ 
4C 1358 other ruln ; change truncate Lines mode 
1166" O004C -word tec$truln-60$ 
4—E 1359 other ejflg : get ej flag information 
1110° 004 -word tec$ejflg-60$ 
50 1360 other gex t : process special functions 
12A9* 005 -wor ec$gexit-60$ 
1361 other sizer : get additional memory 
1374° -word tec$sizer-60$ 
1362 other ate : get date 
140B' 22 eword tec$date-60$ 
1363 other we : get time 
1423" 005 -word tec$time-60$ 
58 1364 other get : get files opened 
OD7F* 005 word ftec$getfl-60$ 
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—68 Lonpatibitity mode trap handler met 7 96:1) ‘82 TECO.SRCJTECONAT.MAR; 3 ° (17) vis 
A 1365 other ; switch input file 
OC6F' A word tees \npsv-608 , 
C 1366 other utev 3; switch output file 
0cé63' C .word tee outsv-60$ 
—E 1367 other a yp 3; page backwards 
0836" 005 eword tecS$bakup-60$ 
° 1368 other ge p 3; get input 
O8CA' eword tec ores 
: 62 1369 other putb 3; put output 
O9FF 6 .word secgputht-60s 
- 64 1370 other clsf : close input & output files 
occs 8 eword tecſsclsfle60ſ 
6 1371 other clsof ; close output files 
OCCD' 006 eword tec$clsof-60$ 
, 068 1372 other aller : finish up on error processing 
OD6C* 006 -word tec$aller-60$ 
88 1373 other kilfl 3; delete output file 
0D14" 006A -word tecS$kilfl-60$ 
006C 1374 other delln : echo Line deletion 
0721" 006C eword tec$delln-60$ 
Q06E 1375 other elc 3 echo character deletion 
0757' BOs eword tec$delch-60$ 
0070 1376 other xitnw 3; stop teco terminal hacks 
1108" 0070 -word tec$xitnw-60$ 
83 1377 other texit ; exit from teco 
1468' 84 1378 708 eword tec$texit-60$ P ty 
: 3 reference on 
O3EE* 31 0074 1379 brw abort_exit 3; whoops, we oust abort. 
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—8 Initial start up 18-SE5-1 382 96:10:88 YTECO SRCSTECONAT MAR; 3 . (18) vi 
4 1 pats Initial start up 
4 ue start ~tego: ; : re etert ¢ of compet ibility mode 
urgw - 3; purge our work 
7 “re “fnadr=b*10$ 3 Pde" the whole vs Be oe 
87°AF 7F 77 PUSHAQ b*10$ 
00000000 ' GF 1 fe 7A CALLS #1,G*SYSSPURGWS 
00 ; a; bsbw success_or_announce 3 announc = failure.. 
— 1 clrq r0 ; clearr 
0 § Ht rei 3; enter compatibility mode... 
0000000 7 1390 10$: . lon : purge from 00000000 
ppeerero goßg 130% tong Pastas : PCO PFFFFFEF 
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: } a3 -sbttl Error processing, etc. 
: ! $3 enable sb 
51 10C°CF OD F 1 38 10$: moval aerr rhsgvects. ri ; Read. to message vector spot 
1 0 oO 4 1 38 mov oad the orcer tatus code 
71 0906 008) ae. 97 1 movl socarcs 1 1>16>!1, =(r 1) sev, id, & text; arg count = 1 
00" 06 a} ; As 12 ? gapw girl). s“#rms$_ normal/655 sie’ ? te this an RMS error 
o¢ a5 AS 14 § ine (rl) 5 ; Robe include the STV value in count 
On 1? 20$: rsb : exit 
A? 14 : success_else_die: ; abort unless success completion 
FC 50 E€8 OQOA7? 14 $ “plbs~ rp. 20$ 3 exit if success 
50 8d AA 14 ushl r0 : failure, save the exit reason code 
14 10 AC 14 8 sbb success_or_announce 3 go announce the failure 
6E , 4 ae 14 bicl #sts$m_Severity, (sp) ; trim out severity code. in status 
8E 10000004 8F C9 00B1 1410 bisl3 #sts$m_inhib_msg! Ists$k severe, = ; inhibit ¥ msg & severe error 
0 0B8 1411 (sp)?, r0 3; get forced on in status code 
0B9 1218 $exit_s - ; force an image exit 
069 141 code = r0 3; with the reason code 
50 OD 089 PUSHL r0 
00000000'GF 01 FB oe 1% CALLS #1,G*SYSSEXIT 
OC2 1415 success_or_announce: 3; check for success; announce if not 
7F 50 oc 1418 LBs r0, 60$ 3: exit if success 
C8 0cS 141 10$ 3; go format the message vector 
00C 1213 ne Sl s- 3; use $PUTMSG to format the message 
9007 141 pogues © = (ri) ; using the built up message vector 
00 00 00C7 #0 
3 ane pet 
61 DF OCD PUSHAL (ri) 
00000000 ' GF 04 FB OCF CALLS #4,G*°SYSSPUTMSG 
0D6 1420 sbsbw success_or_announce 3 announce any failure... 
05 83 1 1 rsb 3; exit 
OD7 14 : success_or_abrt: ; check for success; abort if not 
6A 50 8 $07 1424 blBs r0, 60$ 3 exit if success 
20 AA 00000000'EF : DA 1425 movaw ioerr, i_pe(r10) 3; else exit to teco’s error processor 
4 bee 12 § brb 30$ 3 continue 
E4 1428 success_or_cls: : check success; close & error if not 
D50 6 + 14 “blBs : exit if succes 
4A6 OD E7 14 mov Heese 5 * rl 5 get the rab ointer 
O10c'CF OC Al OD €B 1431 movl rab$l"stv(r1), w*err -msgvec+ 3; save the STV value 
01 #68 : 1? ; uphr #*m< <0. 3 seve the — status 
close - 3 
FS 1434 fab=(r6) 3 “the. (failing) fab 
— OF F PUSHAL (r 
00000000 ' GF FB F CALLS #$$.TMP1,G*SYSSCLOSE 
BA FC 1435 popr #*m<r0> : restore the failure status 
FE 14 § success_or_err: 3; check for success; error if not 
43 50 FE 14 blBs 0 60$ : exit if success 
C 10 1? : 508: 5 pape 10$ ; go format the message vector 
ra 
6A 2222 BF 3C O01 144 movzwl #$$$$$$, i_r0(r10) ; set rad50 code for ERR into saved r0 
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Error processing, etc. SEP=-1984 TECO.SRCJTECONAT .MAR; 3 (19) 
00000000'8F 04 Al g 1 144 cmpl 4(r1), #rms$_fnf ; was the error file not found? 
8 1 144 bneq 40$ 3; it was not 
02 Al 1 133 450 poye #1, 2¢r1) ; it was, set only message text 
ra 
6A 6786 8F ¢ 1668 movzwl #$$$$$$, i_r0(r10) ; get rad50 code for FNF into saved r0 
00000000’ EF 4 1238 40$: girt errbuf ; bg the error message buffer 
144 putmsg_s - ; use SPUTMSG to format the message 
1208 msgvec = (ri), = ; using the built up message vector 
144 actrtn = b*70$ ; catch the message w/ action routine 
PUSHL # 
DD PUSHL # 
SE'AF OF PUSHAL ores 
1 OF PUSHAL (r1) 
00000000 ' GF 4 Ff CALLS #4,G*SYSSPUTMSG 
FF bsbw success_or nce ; announce any failure 


a 
oO 
Sad 


E 
08 AA —98 


oe ; set error message addr into saved r2 
5E OOE4'CF 09 


: set c-bit in saved 


anno 
movab erreur 1 Fotr 10) 
i ps(r{0) ps 

: coqsere calling sp for error exit 


nel 
mov | w*saved_sp, sp 


; don't * the message to user 


when I return to you 


ee ae ae ee er ae ae ae ee a er er ee er ee ee er ee ee er er ee ee er er er er er er er ee ee er ee er er er er er er er rt 
WOO ODO 9 SI DD DU BB BBE EE WNINIIOPOPPONONUNn | — —— 


1 
1 
A 
1 1450 
4 145 
F 123 
4 1328 60S: rsb ; exit 
—160 — err: 3 errors come here 
56 X 0 14 mov l o(sp)¢, r6 3; get pointer to: code, len, text 
ga 86 C 8 1458 movzwl (r6)+, i_r0(r10) ; set rad50 code into saved r0 
0 38 9A B 1459 movzbl (r6)+, r0 : get length of text strin 
FFFF‘BF 00 66 2c f 1460 move r0, (r6), #0, #errbfl-1, errbuf ; move message tex 
00000000‘ EF 
6 94 A 1461 clrb (r3) ; and ensure result is asciz 
D6 «11 f 1006 brb 50$ 3 go set the message text address 
003¢ 3 1464 70$: -word 9 “m<r2,r3,r4,r5> ; SPUTMSG action routine 
52 04 6C 7D 1465 movq a4(aps, r2 3 get message text descriptor 
00000000‘ EF 444 Bt 0 3A 4 1496 loce #0, #errbfl-1, errbuf ; find asciz ending of message buffer 
FFFF' SF 9 81 146 cmpw r0, #errbdfl- : is the whole message buffer free? 
14 1 1798 bgeq 0 3; yes, no need for prefixing 
54 52 A 198 addus #3, r2, 74 3; add prefix size to nessens size 
54 1 9 1470 cmpw r0, r4 ; would the whole thing fit? 
1 F C 1471 blssu 90$ > nope 
50 QO A ; 1476 subw a £8 : yep. remove prefix size from free 
81 OAOD 8F 147 movw #<{0a8>!13, (r1)+ : prefix message with <CR><LF> 
81 98 8 1474 movb #9, (ri)d+ 3 and <TAB> 
61 50 00 63 C 1475 80$: move r2, (r3), #0, r0, (r1) |; move message text into buffer 
° 4 F 1476 clrb (rr 8) : and ensure result is asciz 
0 04 } 1477 90$: clrl r0 : 
1328 3 
4 147 
4 1480 


disable lsb 
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} : 142 q csbeel Control/c ASTs 
194 14 : besSetriceets : control /e ast's come here 
0009 194 14 ord = “m<> o need to save any registers 
14 8 O'EF F ; 196 14 — bbsc aie eitgs 3*8. etyperrSset, 70s 3; user trapping control/c" $s? 
0 1°EF 1 1 § 14 mnegb pita get the stop soon indicator 
05 00000000'EF 7 § 1A5 14 8 bbc arecSy. v recht “atypetrsset, *t0 3 exit on control/c's? 
OOF C'CF 8 1AD 14 mcomb # ag ; yes, ensure flipped op 
188 1490 108: enable. eer lea tle 3 go re-enable she ce —— /c ast 
ft 1B4 1491 bsbw 8 ccess or —— 3 announce any f 
OOFD' CF 1B7 1236 mcomb #0, w*ctrlo_fla . 3 say control/o 1s now “in effect 
18C 133 $cancel_s - 3; cancel all pending 
1BC 1494 “chan=w*ter oO. ; on the terminal output channel 
E 0 V 3c digt MOVZWL w*ter mY (SP) 
00000000'GF 01 FS 17 CALLS ft 8* CANCEL 
FEF? 83 108 1495 bsbw success_or_announce 3 announce any failure... 
04 1e8 1238 ret 3 return 
1¢C 1238 enable_ctricast: ; enable the control/c ast 
Bite 149 $q - ; set up the control/c ast with a qio 
1¢C 1200 chan=w*ter_c using the control/c ast channel 
1€C 1501 func=#io$_ seEedet isn actrleast, - ; function = control/c ast 
0 +: 1502 pisp tecsétricast 3 go to here on control/c ast's 
bo Bis — 
BF AF : 18 hes o Eegietetcest 
Y D 107 PUSHL #0 
7E 0000'8F 3c 3138 MOVZWL #ios_ setmode! io$m_ctricast,-(SP) 
7E —48 HS 3108 ot ta ¥ “ter_c_chan,-(SP) 
00000000 ' GF §e FB Bie? CALLS #12,G*SYS$Q10W 
05 O1EC 1503 rsb : exit 
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Ep | 5 .sbttl Terminal output waits 
ip ! ; enable lsb 
1—ED 1 tecSwait_done_lf: ; wait for all output (inc. <LF>'s) 
4 834 03 90 10 151 fovb ~ #2!1, w*ter_o_force 3; Say we're forcing <LF>'s also 
0000 ' 8F 0000000 ' EF #) 1F2 151 cmpw ttoptr, #ttobuf ; is the terminal output buffer empty? 
15 1FB 151 bneq tec wait_done 3 nope 
— D 1FD 151 tstl w ter 9 cc 3 any pending, saved <LF>? 
ae 1 1514 beql tec$wait_done : nope 
7E QOO°AB 80 ; 1515 movw b*outdnetr11), =(sp) 3 yep. save current output done flag 
OOF SF Be 1318 clrl w*ter_o_cc ; forget about saving the <LF> 
47F 0 B 151 bsbw echo_(f ; because we want to (re-)buffer it 
OO'AB 8E 80 0 1313 movw (sp)#, b*outdne(r11) 3; restore origins’ output done flag 
1 13) tec$wait_done: ; wait for all output to complete 
OOFE'CF 1 $8 12 1520 Bisb #1, w*ter_o_force 3; say we're vere ine ferminal output 
121 17 1521 bsbb tecSwait 3 and go do an initial wait 
OQOOFE'CF 94 19 iF § clrb w*ter_o_force 3; now back to non-forced output 
OOFF'CF 95 1D 1 tstb w*ter_o_pend : is there any in-progress output? 
1 19 1 1524 blss 3; nope, go exit 
EC AF OF 3 1525 ushab b“tec$wait_done : yep. check again after waiting 
6 15 § 10$: waitfris - ; wait for single event flag 
6 15 efn=#1 3; on this event flag 
01 DD 8 PUSHL #1 
00000000 ' GF 01 FB CALLS #1,G*SYSSWAITFR 
FE90 30 8 F 1 8 bsbw success_or_announce 3 announce any failure... 
1529 $clref_s - ; do an event flag clear 
8 1530 efn=#1 3 on this event flag 
8 OD PUSHL #1 
00000000 ' GF Ca: 4 CALLS #1,G*SYSSCLREF 
FE84) 3 B 1531 bsbw success_or_announce 3 announce any failure... 
—E 15 § tecSwait: 3; wait for output completion 
0000'8F QO000000'EF B81 3 15 cmpw ttoptr, #ttobuf 3; is the buffer empty? 
0B 13 47 1534 beql 208 3; yes, go exit 
Q0000000"EF 85 49 1535 tstw ttoint ; no, can we initiate output? - 
955 18 4F 1536 bgeq 10$ ; output’s already pending, go wait 
011D 30 0251 1537 bsbw tec$output 3; else initiate whatever output we can 
05 0254 15 3 20$: rsb : exit 
0255 15 
0255 1540 .disable lsb 


J 14 


So 
[=] 
So 
So 


sword “m<> 


cmpw a4(ap), #ss$_controlc 

bneq 1 

mcomb #0, w*ctrlo_flag 

$cancel_s - 
chan=w*ter_o 


; completed under control/c? 
3 nope 
chan : 
“fer_o_chan,-(SP) 
syss 


0000'8F 04 — 
OOFD'CF 00 9 say control/o is now in effect 

cancel all pending I/ 

on the terminal output channel 
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; } 8 -sbttl Terminal output 
1544 check_esc_csi: 3; check ESCape/CSI sequences 
2A OOFE'CF 58 1 ie ~  btbs w*ter_o_force, 40$ 3 No processing if fore ng output 
0 A ! 8 23 —25 copy ———— count /pe nter 
v 3 .and guess at an ape sequence 
9B BF 3 : 3 1 8 cmpb cof), 4294128 3 is it "really —E e813 : 
1 4 154 beql 18 3; yep 
f 1 6 1550 bsbb 6 ; : get the next character 72 
58 8F ; 1 gape 61. #*a/C/ : is it (7-bit) CSI? 
3 nope 
54 40 9A 1 2 $ soviet #*a/a/, r4 ; set correct final for CSI 
10 1554 20$ bsbb 608 3; get the next sequence character 
20 91 7 132? $ cmpb (r3), #32 ; control character? 
1F a § blssu 408 3; yes, call it finished... 
7F 8F 6 91 0279 155 cmpb ss (3), #127 : is it DEL or higher (also controls)? 
: 1€ 7D 1 28 bgequ 408 : yes, call it finished... 
54 63 «91 7F 155 cmpb =-_s (r'3), 4 : a final character to finish it? 
—E iF 2 1560 blssu 208 ; not finished, loop for the next... 
85 1 90 4 1561 40$: movb (ri)+, (r5)+ 3; copy over the ESCape/CSI character 
0 »07 7 1306 decl rd 3 and remove it from the count 
98 13 9 156 beql 50$ 3. no more, just go exit 
50  OOO00'CF 1B 61 20 oF 1564 movtuc 0, (ri), #27, w*ter_o_table, r0, (r5) ; try move rest of data 
BF 1D 4 1565 bvs check_esc_csi 3 another ESCape/CSI, go process it 
: rs 3: exit 
05 166 50s b ied i . - 
53 6 7 1568 608: incl r3 : advance the remaining pointer 
36 D7 9 1569 decl re 3 and decrement the remaining count 
2 12 1300 bneq 70$ ; more to look at, go exit 
6— EG AF 9E 1571 movab 40$, (sp) 3 no more, change return to finish up 
0000°8F 50 61 1326 cmpw r0, #ttobfl 3; about to re-buffer the whole buffer? 
16 1 157 bgequ 70$ : yep, don't, it’s junk anyway... 
6— 55 OD 1574 movl ra. {sp} 3; else save dst ptr (clobber return) 
OOOOO000'EF 61 29 § 1575 move r0, (ri), ttobuf 3 re-buffer unfinished ESCape/CSI seq 
OOOO0000'EF 6 E 1576 movab (r3) Etopte 3_ setting a new buffering pointer 
1577 ; How about CTRL/O and/or Binary Output? 
55 8€ 0 1328 mov l (sp)+, r5 3; restore destination pointer 
0 1303 70$: rsb 3 exit 
1 1 tecSoutput_ast: 3; terminal output done ast comes here 
1388 
1584 
: 5 
1389 
1588 


SOOOCOCOSOCOOCOOSOOCOOOSOOOO OOOO OOOOOOOOOOOOOoOoOO 


Pinstietgetih Simm MSM RSENS 4 4 4 4g te TIL ELS gH 
mo,r> ooo 


SMOvon OwcvorTeac-oomm 


43 pore*er 30 MOVZWL w*te 
00000000'GF 01 CALLS #1,G*SYSSCANCEL 
FDE6 1 8 bsbw success_or_announce 3 announce any failure... 
— 1590 10$: decb wget -oqpend : one less output request is pending 
18 1591 geq 0$ ; other(s) pending, really count it 
883666.— Bg 1 38 ncw ttoint : else take the count 
"EF 1595 208: decw int 3 say terminal output completed 
; 4 1 3 bgeq 3; something else is going on, return 
00 1595 bsbw tecSoutput_more :; else try for more output 


vesonat 
V59.02 

one 

still 

1 

OOF 2° CF 

F2 

OOFS'CF 8D 8F 

65' AF 

O8C4"CF 1E00'CF 

089C'CF 

Q0000000'GF 01 

O10C*CF  O8A8'CF 

O8BE ' CF 

OOF 2° CF 

FD70 

C 

52 3f 

53 00000000" EF 

Ob 83 

a f 

47 

0200 8F  O8BE'CF 

02 

08C4'DF BS 

08C4'CF 

a BY 

DB 52 

oc 

00000000" EF 

OO'AB 02 

00000000' EF 

0  _00000000' EF bo. 

51 § 
00000000 ° EF a + 
04 0° 

vore"ss 

BE 

thal * 
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VAX-11 TECO 
Terminal output 


04 


ooo oOo o—— ao 


ano NS OOowuwe 


oom "Wo 0-0" 00U wowooneo 
2338335* 222238 —ffown 


wis 


== ~DOODDDOOO0O0000 


PDEA AAAAAAOAOAAAOIIUIN 
WO ODNAUES WN OVOOno 


— 2— — — — te 


2 DDD ODDIE ID DDD IB BB NAINA 2 9 8? 2 QF 870 $F $99 70 WF “FP “VE “FP 
SOF OLOMNAFND WN 9 FF DOWN ODNNLOOUIM DS DS PWOY POLIMO POLL HL LW 
soe 


— — — — — — — — — — — — — — — —— —— — — — — — — — — — —— ——— 
ù0000———————————————————————————0 


MEPL 


SONA OO NA UE WIN OOOO NAME WI OQ ODNAUSE 


30$: ret 
enable sb 
10$: incl 


60$: pushr 


70$: cmpb 


80$: movb 


incw 
90$: sobgtr 


100$: decw 


tecSoutpys: 

bisw 

tecSoutput_more: 
incw 


¢ 
1108: = tstl 
b 


18-SEP-1986 98:10:08 ERECONSRcSTECoNAT-naR;3 89% 3) 


2) 


r3 ; correct the buffer pointer 
“output_sys_rab+trab$w_rsz ; y Pp. anything in the record yet? 
0° 3; nothing there 
$ ; else clear out the buffer 
w*output_sys_vftc ; indicate 1 more <to of pret ts 
90$ 3 go continue if < 128 <LF>'s 
; else back to only 127 <LF>'s 
3 and go dump that record first 


#<187>!13, w*output_sys_vfc+l ; indicate a <CR> as postfix 

b*90$ 3; set to loop after record output 

w*output_sys_buf, w*output_sys_rab+rab$l_rbf ; reset pointer 
: put a record 

rab=w*output_sys_rab ; to sys$output 

Wl gutput_ sys ra 

#$$.TMP1,G*SYSSPUT 

w*output_sys_rab+rab$l_stv, w*err_msgvec+8 ; save STV value 

w*output_sys_rabtrab$w_rsz ; always reset the record Length 

w*output_sys_vfc 3; and the print control information 

success_else_die 3; check for success completion; exit 
; save r2 & r3 


#*m<r2,r3> 
ri, er ; move count over to here 
ttobuf, 3 3 get terminal output buffer pointer 
(r3)+, #1 3 is this a <CR>? 

; yes, go set pogtt tating 
-(r3), #10 3 is this a <LF>? 
10 3 yes, go set prefixing 
w*output_sys_rab+rab$w_rsz, #output_sys_siz ; room left? 

3 yep 

3 nope. must dump this buffer 
(r3)+, @w*output_sys_rab+rab$l_rbf ; store a byte in buffer 
w*output_sys_rabtrabSl_rbf ; bump the record buffer pointer 
w*output_sys_rab+rab$w_rsz ; and count in record length 


‘ loop if more to go... 
#*m<r2,r3> 3: restore r r 
ttoint : be away the buffer interlock 
3; ex 


*output_sys_vfc 
Yop Pus 878. 


terminal output initiation 
Say some output was d 


#2, b*outdne(r11) one 
more terminal output initiation 


=e Sete teste 


ttoint interlock the terminal output buffer 
s“#io$_writevblk, ttomod, r0 ; form function code 
#ttobuf, ttoptr., ri 3 get byte count in output buffer 


ttomod 3 reset the terminal output mode 
ttobuf, ttoptr ; and empty terminal output buffer 
s*#io$v_canctrlo, r0, 110$ ; canceling control/o? 
w*ctrlo_flag ; yes, $o cancel 


e t 
anys? ng to output? 
no 


f ; 
1 3 hing there... 
w*ter_o_chan ; do we have a real terminal? 
60$ 3 nope 
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Terminal output SEP-1984 TECO.SRCJTECONAT .MAR; 3 
OOFD'CF 95 B2 1 tstb wctrlo_flag H yep. ut is control/o in effect? 
Re 12 B6 1 bneq 1 ; that 5 is, junk pais output... 
C BB B8 1 pushr #*m<r2,r3,r4,r5> 3; saver sOrougs r 
2g OOOO ce E BA 1 movaq w*ter_o_status!, r2 3 guess at terminal out iosb #1 
OO'CF 9 BF 1 2 movab w*ter_o_buf1, r§ ; .and terminal output buffer #1 
8 C4 (1 § tstw ) ; is that jiosb currently in use? 
A C6 1 2 bneq 12 3; nope, so use 
2g 88. E c8 1 8 movaq w*ter_o_status2, r2 ; else use terminal output jiosb #2 
O200'CF 9E CD 165 movab w*ter_o_buf2, r§ 3 and terminal output buffer #2 
D ge D 1960 120$: pusher #*m<r0,F2,r5> 3 save function, iosb, and buffer 
1B A ets tal SO 1 F 4 1661 movtuc ri, ttobuf, #27, w*ter_o_table, ri, (r35 ; move data to buffer 
65 if 4 166¢ bvc 130$ 3 nothing special. 
FEOF 3 ES 166 bsbw check_es *3 ; else go check ESCape/CSI sequences 
9p BA 8 e6 1664 130$:  popr #*m<r0,r2,r5> 3 restore function, iosb, and buffe 
51 55 C3 E8 1665 subl3 r3, r5. rif : and (re-)calculate the byte count 
= 8 EC 1998 bleq 166s 3 nothing left, just go exit... 
OOFF CF % EE 166 incb w*ter_o_pend ; one more output request is pending 
06 1 F 1908 bleq 140$ 3; but only one, don't say busy 
OOO00000'EF B86 F4 166 incw ttoint ; else say terminal output now busy 
00 oD FA 1670 140$: ushl 3; preset no carriage control next time 
10 OOFE'CF 01 3 SFC 1671 bs #1 yi fer o_force, 150$ ; are <LF>'s being forced out? 
OA FF A341 1 040 1676 cmpb =1(r3)Cr17, #10 3; does the buffer end with a <LF>? 
09 3 407 167 bneq 1508 3 nope 
—14 409 1674 decl r 3 yep. remove the <LF> from the count 
6—E 00840000 8F DO 0408 1675 movl #<<187>!10>a16, (sp) 3 and set <LF> prefix for next time 
41 1976 150$: $qio_s - 3; start the terminal output write 
412 167 efn=#1, - ; using this event flag 
0412 1678 chan=w*ter_o_chan, - 3; using the terminal's channel 
0412 1679 func=r0, - ; using the correct function 
0412 1680 iosb=(ré), - : using this iosb 
41 1681 astadr=tecSoutput_ast, - ; catch the output completion 
412 16 astprm=r2, - 3 passing the iosb pointer 
eh 16 pis(r3), - : from this output buffer 
412 1684 2=rl, - ; with this byte count 
ba] 1685 OO thea cc 3; using this carriage control 
7C 041 LRQ =(SP) 
OOFO'CF DD 0414 PUSHL w*ter_o_cc 
YB BR wat #8 
r 
3 DF O41C PUSHAL (r3) 
DD 8 PUSHL re 
FE9A CF F 046 PUSHAL tecS$output_ast 
3 F 0424 PUSHAQ (r3) 
7E C 04 8 MOVZWL r0,-(SP) 
7E OOF6* , 4 ott hig y ter_o_chan.=(SP) 
00000000 ' GF ga. 4 CALLS #12,G*SYS$QI0 
OOF O'CF 4 1 § movl (sp)+, w*ter_o_cc 3; set carriage control for next time 
FC 435C 1 bsbw success_else_die ; check for success completion 
C BA OQ43F 16 3 160$:  popr #*a<r ae racrs> 3 restore r2 saroug> r5 
00000000 ' EF f —9 8 Secu ttoint : sabe away the buffer interlock 
rs 3 
+38 1891 
448 1692 .disable sb 


v89.02. Terminal. input 18-SEP-1986 "°° (33) 


rf } 8 esbttl Terminal input 
8 8 enable Lsb 
OOF 4" Cr 8 448 1 38 10$: tstw woe onan ; have a real terminal? 
7 1 44C 1 bneq 11 3; yep 
7. § 44E 1700 clrl -(r7) 3; ensure the input buffer is empty 
56 O7A0'CF BF 4 1701 moval w*input_sys_fab, ré 3 get the sys$input fab pointer 
0809 4 17 § bsbw tbyt ; get the next byte 
00000000 ' 8F 3 rth Vf ? gaol f § rms$_eof 3: end-of-file? 
e : ye 
FC 3 +8) 3 5 bsbw success_or_abrt 3 {fe check for success completion 
OF 58 9 . 3 4 1 $ bbc s*#ios$y cvEl ou, r8, 20$ ; convert ng lower case? 
61 8F 1 + 0468 17 cmpb ri, #*a7A/+ : yep. is it lower case? 
9 1F 046C 1708 blssu 208 3 not lower case 
7A 8F } 4 $95 Ve - b of #*a/2/+32 5 sy x" 9-3 
ru 3 bu n 
51 20 BA 0474 1544 bicb 398 ri ; make lower case into upper case 
6A 1 GA 0477 ar 20$: movzbl ri, i_r0(r10) 3 copy character to here 
OOEC'CF D4 O47A 171 clr w*ctrlz_cnt ; and clear control/z counter 
0c 58 00° 3 47E 1714 30$: bbs s“#io$v_noecho, r8, 40$ ; skip echo if not echoing 
7F BF 64 1 Bes 1715 cmob i_r0(ri0), #12? : is the terminator a delete? 
06 13 rt 1716 beql 40$ : yep, delete's are echoed elsewhere 
56 6A 9A 0488 171 movzbl i_r0(r10), r6 3; get the character to echo 
pene 9 488 1018 bsbw echo_char : and go fully echo it 
010 1 8 rah 40$: brw 190$ 3 go check out the input 
6A 1A 9A 0491 1721 50S: movzbl #*a/Z/-64, i_r0(r10) ; set a control/z 
E4 OOEC'CF 03 F2 0494 17 é aoblss #3, wctr(z_ent : continue if not third control/z 
20 AA QOO00000'EF 3E O49A 1723 608: movaw texit, i_pc(r j ; set for exiting from teco 
| ae i tat 3 brb 90$ ; and go exit 
50 04 A6 $6 AY Q4A4 1726 70S: biswS (r6), 4(r6), r0 3 any character(s) or terminator(s)? 
7 12 Q4A9 1727 bneq 130$ 3; yep, so go use them... 
6A 01 AE Q4AB 1728 mnegw #1, _i_r0(r10) 3 return a -1 for no input 
77 ps 4AE 1729 clr -(r7) 3 ensure the input buffer is empty 
OOF4 1 rt Vy ? brw 2008 : and go exit 
20 AA QO0000000'EF 3E 0483 17 § 80$: movaw teco, i_pc(ri10) ; set for festerting teco 
0020'CF D4 0488 1733 908: clrl w*ter_i ; ensure the input buffer is empty 
05 8 4 : rsb 3; and exit 
58 30 E 4C0 17 $ 100$: blbs r0, 130$ : call a random success normal... 
6 6B 4C3 17 stw -(r6) 3; correct the iosb pointer 
51 OEO'CF pO O4C5 17358 1108: movil w*ter nor trm_ptr rl ; guess at the normal terminator mask 
5 58 00° €1 O4CA 17 bbc s*#ioSv_timed, r8, {20$ : checking for type ahead? 
51 0228°CF E Q4C 1029 movaq w*ter_i_any_trm, ri 3; use the anything terminator mask 
4035 1741 1208: Sqiow_s - ; do a terminal input read 
4D 38 chan=w“ter_i_chan, - 3 using the terminal input channel 
403 174 func=r8, - ; using the correct function 
4D3 1744 iosb=(r6), - 2 put /o status here on completion 
403 1745 pl=a(r7), - 3 using the terminal input buffer 
4D 1008 pe=r9, - ; with the correct Length 
403 174 p5=#0, - 3 using an immediate timeout value 
405 1748 prac’ 3; using correct terminator mask 
rf 7C 04D LRQ (SP) 
5 DD 04D PUSHL ri 
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9 DD 0407 PUSHL 4 
DD 0409 PUSHL fr 
00 g BF 408 PUSHAL a(r7) 
C 04D CLRQ -(SP) 
F 4E PUSHAQ (ré6) 
43 C Q4E MOVZWL £8,-(SP) 
7E O S 4 tH ap hg ¥ Fe. than, 9 tS?) 
00000000'GF OC £8 *3 CALLS #12,G*SYSS$QI10W 
; 4F3 1749 bsbw successor _abrt 3; check for success completion 
3 C rt 1750 movzwl (r6)+, fF ; get the completion code 
0000 ' 8F tI 4F 173 cmpw f #ss$_timeout 3 a timed out operation? 
A 4FE 17 beql $ 3; yes, go return a -1 to user 
0000'8F 50 81 0500 175 cmpw r0, #ss$_controlc 3; was control/c typed? 
89 1 30 1754 bneq 106 ; none of the above... 
OOFC'CF OOFC'CF 9 507 1755 mcomb w*ctric_flag, w*ctric_flag ; flip the control/c flop 
3 20F 1036 beql 60 3 7 ed, exit from teco 
9F 6A OF = =«6€1 «0510 «175 bbc #tec$v_et$cc, i_r0(r10), 80$ ; allowing return of control/c? 
66 1 B60 0514 1758 movw #i, (7B) 3; set data count = 
02 A 04 0517 1759 clrl 2(r6) 3: and no terminator(s) 
00 9 9 0 QS1A 1760 movb #*a/C/-64, a(r7) 3 then buffer a control/c 
7 86 f S1E 1761 130$: movzwl (r6)+, =(r7) 3 set count of characters obtained 
-— 1 521 1706 beql 140$ 3 none 
gpecr et D4 0523 176 clrl w*ctrlz_cnt 3; some, reset control/z counter 
458 00° EO 0527 1764 bbs s*#io$v_noecho, r8, 140$ ; did they echo? 
00'AB 02 AB 0528 1765 bisw #2, b*outdne(ri1) ; echoed, so say so 
0 02A6 3 52F 1096 1408: movzwl 2(r6), r0 3; get the terminator's Length 
51 13 0533 176 beql 180$ 3 no length, so no terminator(s) 
51 67 87 C1 Q535 1768 addl3 (r7)+, (r7), v1 : else potas just beyond the data 
56 1 9A 0539 1769 movzbl (ri), r 3; get the terminator itself 
77 0 60 O53¢ 1770 addl r0, -(r7) 3 Now count the terminator(s) 
1A 38 IJ 75 31 ** Ra 3 control/z? 
ne 3 no 
07 OOEC'CF 3 ‘5 544 1558 sobiss #3, w*ctrlz_cnt, 160$ ; continue if not third control/z 
FF4D 31 a3¢0 122% brw 60§ : else go exit from teco 
OOEC'CF D4 054D 1776 150$ clrl w*ctrlz_cnt 3; no, reset control/z counter 
0D 3 4 B22) 33 1608 —* + 3; carriage return? 
ne 3 no 
7 06 0556 1779 incl (r7) 3 Yes. count 1 more in buffer 
57 67 7 ¢i 0558 1780 addl\3  (r7)+, (r7), r7 3: find position for Line feed 
77 A 90 Q55¢C 1781 movb #10, -(r7) 3; and store it also 
23 58 0° 55F 17 bbs s*#lo$v_noecho, r8, 180$'; skip echo if not echoing 
012E 563 17 bsbw echo_buf fer 3; yes, echo the carriage return 
se OA, 9A 0366 1784 movzbl #10;rr ; “and set to echo a line feed 
19 58 00° €0 0569 1785 170$: bbs s*#io$v_noecho, r8, 180$'; skip echo if not echoing 
7F 8F D 17 cmpb r6 #127 : is the terminator a delete? 
13 13 «0571 «+17 beql 1868 > yep. delete's are echoed elsewhere 
O11A 30 623 127 bsbw echo_char 3 else tub ly echo the terminator 
576 1789 tec$input: 3 terminal input 
576 1790 bs s*#io$v_canctrlo, ctlofg ; $9 Hy control/o cancel 
00 OO000000'EF 00° €E3 370 300058 bbcs s“#io$v_canctrlo, ctlofg, 30005$ 
04 6A O01 €5 OQ5S7E 1791 #1, i.r0(r10), 180$ : main prompt call? 
OEC'CF 4 05 179 clrl w*ctr€z_cn 3; yes, reset control/z counter 
57 020'°CF 5 1793 180$:  movaq weser_t. 7 3 get terminal input buffer desc 
7 5 1794 decl (r7)+ 3 remove one character from buffer 
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B 
n 
19 D 1795 blss 230 ; nothing left, go get some more 
6A 3 9A F 1738 movzbl —3 ir 0(r10) ; else ee the charecter 
7 6 ¢ 1 inc =(r ; and bump the buffer pointer 
50 6A A 1738 190$ movzbl i_r0(r10), r0 ; get character gbout to be returned 
FA66' 97 179 bsbw 58 oexelbr : and go check it 
5 1 * 1 9 beql $ ; there was nothing there... 
is ae | blbc r0, 220% 3; there's some kind of error... 
20 AA 00000000'EF E oF 1 § movaw tecocr, i_pc(ri0) ; set to re-start TECO w/ <CR><LF> 
OOFC'CF 3 3 2008: clrb w*ctric_flag : ture off control/e exit flag if here 
> and ex 
SAC 1805 
6A 1B 9A ght 1 § 2108 movzbl 3 i-r0(r10) ; set final initial foment <ESC> 
F611 SAF i brb 2008 ; and go exit with it... 
O10C'CF 51 0 0581 1 220$: movi ri, w*err_msgvec+8 3; save any STV value 
20 AA 00000000'EF RF 586 1810 movaw ioerrs i~petri0) ; set exit to teco's error processor 
clr alr vit = or ename exists 
10 AA 04 O5BE 1811 irl ir 4(r 10) ith R4 = 0 for fil i 
FBSA 1 ast, } \¢ brw success_or_err 3; now go die with the error... 
56 00°AB HS 5€4 1814 230$ movzwl b*indir(r11), r6 : is an indirect command file active? 
OA 1 5¢8 1815 beql 2408 3 nope 
02 26 D1 OSCA 1 16 cmpl r6, #2 ; really? 
4 1A Q5CD 181 bgtru 306s ia reat indirect command file... 
OO'AB B7 OSCF 1 18 decw 3 : ““funny''(1) or initial command(2)? 
d8 18 5D2 181 bneq 10$ 3; initial command, it’s now ‘‘funny'’(1) 
pele ; 05D4 1820 240$: bsbw tec$wait_done_lf ; wait for terminal output to complete 
0C7 0 83 1821 bsbw not_exitin ; not exiting if doing terminal input 
OOEO'CF O200°CF 7E OQOSDA 1 ¢ movaq w*ter_i_nor7_trm, w*ter_j_nor Erm_ptr : mask to 7=-bit normal 
07 00'AB OC 4 0SE1 1 bbc MtecSv_etS8bt, b*etype(F1T), 2508"; is it an 8-bit terminal? 
OOEO'CF  0028'CF E QSE6 1824 movaq wter_T_nor8_trm, w*ter_i_nor_trm_ptr ; mask to 8-bit normal 
67 Q400°CF YE g33 1825 250$: movab wter~i~buf,~(r7) 3; reset terminal input buffer pointer 
56 OO18'CF /7E Fs 18 § movaq w*ter_i_status, ré6 3 get pointer to terminal input iosb 
am «Gorr movzwl #io$_readvblk! - ; set function as read virtual, 
5F8 1 8 jio$m_nofiltr! - 3 no filtering, 
5F8 1 o$m_trmnoecho! - ; no terminator echo, 
58 0000'8F 5F8 1830 io$m_dsablmbx, r8 3 keep ony mailbox off 
59 OFF 8F 3C OSFC 1 4 movzwl #ter_i_siz-1, r9 ; set terminal input buffer size 
04 00'AB 02 €0 0601 1 § bbs #tecSv-et$ic, b*etype(rii), 2608 ; allowing lower case? 
30 163 bs s“#io$v_cvtlow, rf ; no, so don't 
00 58 00° €3 ° ° p006s bbcs s*#ioSvicvtlow, r8, 30006$ 
04 6A O03 €1 Q60A 33 60$: bbc #tec$v_et$nch, i_r0(r10), 270$ ; echoing? 
60E 1855 bs s“#io$v_noecho, + ;.no, so don't 
0058 00° €3 06 * bbcs s*#io$vinoecho, r8, 300078 
04 6A 05 €1 1 1836 3908, bbc eyes et$cke, i_r0(r10), 2808 ; checking type ahead? 
616 1 bs s*#io$v_timed, a ; yes, so do 
00 58 00" £3 0616 oas: PPC s*#ioSv_timed, r8, 300088 
03 6A €E9 1A 1 B blbc i_r0(r10), 2908 : single character input mode? 
59 1 9 1D 1 mov | #T, r9 i yes, so buffer size is 1 character 
FE25 ! 9 2908: brw 10$ 3 {ong branch for real terminal input 
77 60— 1 8 300$: clrl 72 ; ensure the input buffer is empty 
57 O578°CE D 184 moval y login cad. fap r? ; address the ‘'e = 
58 SOA D A 1844 mov | fab$l_téecsts(r75, c8 ; save original ‘‘pre-fetched’’ char/flag 
62E 1845 bs #fabSv_tecnxt, fab$l_tecsts(r7) ; guess at ‘‘pre-fetch’’ working 


— 
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bisb ide (gaint fab$l_tecsts(r 7) 
D 1 $ mov | 418}. r ge +a “ei’’ fab pointer 
} 184 beql 10$ 3 
1 ‘3 bsbw 9 cope 3 get *the next character 
D A 184 cmpl r rms$_normal 3; normal completion? 
13 064) 1830 beql 3268 i ye, character was “pre-fetched’’ 
43 1851 3108: be #fabSv_tecnxt, fab$l_tecsts(r?) ; say nothing 'pre-fetched’’ 
A 4 bicb s*#lafab$ _tecnxt, fabs. tecsts(F 
0 47 1 28 bsbw reset tin aif ; close the indirect file 
8 4A 185 incw b* ndircr 3; then mark as ‘‘funny''(1) 
64D 1854 320$: movb ri, fabs. ‘tecsts¢3(r7) z aye (possible) ‘‘pre-fetch’’ character 
0 z 1 22 bbs #tabsv. tetnxt, r8, 330$ ; orig inet ty have ‘'pre-fet * data? 
1 $2 : 2$ brw 180$ ; nope, go loop to try again. 
F 0658 1 28 330$: extzv 5 #8, r8, i_rO0(r10) ; set the epee; ttched character 
1 228 } 23 brw 190§ ; and go check it out... 
660 1861 .disable lsb 


89.02. Echoing, etc. 18-SEP-1984 19:16:03 EtECOrsRcSTEcoNAT-Man;s "#8" (3Z, vi 


} g ~sbttl Echoing, etc. 
OFFC | 5 .entry tecSout_ascid, “m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> ; output by desc 
58 SPO ‘EF E 1 movaw crqet rij : (re=)point to teco'’s read/write area 
* BS D 1 8 movg ap}. r7 ; get string's descriptor 
— 1 movzwl * ; and get real string length 
6 1 6 1870 eql — null string, just do the <CR><LF> 
9A 72 +1871 108: movzbl (r8)+, r6 ; fetch next string character 
1p 19 75 1 te bsbb echo butter ; and output buffer it 
FB 5 F 77 «(187 sobgtr r $ ; then loop for mor 
Oc 1 cA 1 oi 20$:  bsb sire, rlf : now go do the <CR><LF> 
50 3 C 1875 mov | # 3; set the success return status 
OOFD'CF 67F 1 6 tstb “ctrlo_flag ; is control/o in effect? 
8 1 6 H 187 beql 0$ 3 nope 
Oe ; ! 4 30$ etet r0 : yep. change return status to failure 
: re : 
1880 
6 é 1881 echo_crlf: 3; buffer and dump a <CR><LF> 
56 OD 9A 06 1 § — “i3,¢ 3 set a <CR> 
07 10 06 1 echo_buf fer : and. go output it 
68D 1884 echo_lf: 3; buffer and ne a <LF> 
56 OA 9A Q68D 1885 movzbl #10, ré6 3 set a <LF> 
re 1 — echo_char: ; buffer and dump a character 
O7FO'CF 9F 0690 1 pushab w*echo_dump ; dump buffer after buffering 
694 1888 echo_buffer: ; buffer a echo character 
25 56 07 £9 694 1 3 bbs #7, rg 208 3 a ‘'negative’’ character? 
20 56 1 0698 1890 cmpb r6, #30 3 a control character? 
F if 698 1891 bgequ 3* byte 3 nope 
0D 9 69D 1 3 cmpb ns ; arria * return or higher 
3 1A 06A0 189 bgtru i a6? : it’ 
07 91 Q6A2 1894 cmpb 3 belt or a 
55 1A 8548 «(1895 bgtru echo. ate ; it's tab, lf, vt. ff. or cr 
é 1F O6A7 1 36 blssu ; Lower g Ay be 
10 Q6A9 189 bsbb echo_byte ; it's bell, ring the bell first 
56 OD Q6AB 1898 108: pushl 3 save character 
56 SE 8F 9A Q6AD 1899 movzbl #*a/*/, r6 ; prefix with an ‘‘*" 
ap 4 $B} 1900 bsbb echo_byte 3; go output the ‘*’ 
56 8E& 00000040 C 68 1383 bisl3 #64, . r6 3 Pestore — making it visible 
11 8 8 brb echo byte 3; and go output it 
51  5B85D 8F 68D 1304 208: movzwl #<*a/C/a >+*a/)/, ri 3; guess at hex digits trailing/leading 
50 FFFFFFOO'EF46 6C2 1905 cvtwl nv8bt-256fr6], r0 : ef the conversion character pair 
A 1 CA 19 § blss *s hex Oterts (<15> = 1) 
28 00'AB. OC £0 ce 19 bbs Htec$v_etS8bt, — 8 echo_byte ; 8-bit terminal? 
51 C3E 8F C Di 19 8 movzwl 323 >+*a/>/, ¢ set compose sequence trailing/leading 
E 0 D O08 1909 30$: movq r0, -(sp) 3 seve. pur 2 haracters 
56 05 AE 9A 06D 1319 movzbl 5(sp), ré6 ; gett : ing, : gnal 
1D 10 O6DD 191 bsbb — echo_byte ; and g° outpu 
56 6 9A DF 1316 movzbl sp). r ; gett rst J the character pair 
1 10 Fi 131 bsbb of 0 b e 3; and go output 
56 6€ O07 O FF E4 1914 extzv #8, B7, (sp). r6 ; get the second ti pair (w/ <7> = 0) 
11 0 E9 1915 sbb echo yt 3 and go output 
56 O04 A 9A EB 191 movzbl 4458?) ; —— e =e ot ng signal 
5€ 8 £9 EF 191 add sp 3 ur al chafecters tres stack 
ore 1313 brb —* yte oo Y eutput Ptrailing signal & exit 
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ut 
rt | 
0000 ' 8F 00000000' — 71F 1 
fF 728 1 
00000000' fF 72A 1 
7 1 
FC 3 7 1 
4444 B 7 1 
00000000 ' EF 00000000' A 7 1 
00000000' B4 746 «1 
74C 1 
00° AB 8A ref 
00000000 ' FF 90 75 1 
00000000' B 83 1 
00 8 728 1 
05 076 1 
0764 1 
FAD7 30 0764 1 
93 11 0767 1 
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e(ri1) ; 
etype(ri1) 
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escape? 
nope, use, of uparrow 
use 


£ 

butter a echo byte 

s the terminal output buffer empty? 
yes, always o.k. to buffer, etc. 
mode correct 

it's total y correct 
mode correct (control/o cancel)? 
nope, must be really changing modes 
any room to buffer a character? 

room left, just go buffer character 
is output curren a in progress? 
yes, we must wait for it to finish 
no, start it going... 

interlock the terminal output buffer 
«OR. any control/o cancel into mode 
clear out control/o cancel request 
and say we did it 


store the character in the buffer 
then bump the buffer pointer 
me take away the buffer interlock 
ex 


; go wait for output to finish 


then try, try again... 
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4 } rf 4 ~sbttl Process Line/character deletion echoing 
f } 5 enable lsb 
7 1 tec$delin: ; control/u handler 
1D 0O'AB 91 660 61 bbs #tec$v_et$crt, b*etype(ri1), 40$ ; scope mode? 
D A 07 — 1 10$: movzbl #15, r 3; do tty compatible, set <cr> 
FF20 0 Q7 1 : bsbw os po.dutter ; and output it 
56 A A Q0774 1 movzbi #10, r6 3; set <Lf> 
FF16 1 a4 ! § 20$: brw echo_char 3 go fully echo the character 
18 AA_ 02 ce gra 1 3 30$ subl #2, J_spceto) : ‘push’ the sp stack 
18 BA 3 AA 7 4 1 movw i_pe(ri0), Oy tpiri® ; and move return onto it 
20 AA 00000000'EF E 07 1369 movaw prtlin, i.pc(ri0) 3 set Line re-print as the new exit 
57 0000000 Bis 5 4 130) 40$ — rterl, r7 3 OFS Srane ‘ine sequence base 
$s ; and go do 
57 Q0000000'°EF 3C 079 1988 movzwl grecup. r7 3 get coreer up sequence base 
40 10 0798 1964 bsbb $ ; and go do that also 
CF Ot a 1392 brb 10$ ; Now go do a <cr><lf> 
79F 1969 tec$delch: : delete handler 
56 A 9A Q79F 1398 movzbl i_rO0(r10), ré6 . get the deleted character 
DO 00°AB 1 £1 OQ7A 138 bbc #tec$ _etScrt, b*etype(ri1), 208 ; scope mode? 
58 1 DO O7A? 1970 mov l “i, 3 set count for 1 erase sequence 
59 56 7 €0 OQ7AA 1971 bbs #7, re 100$ 3; a ‘negative’ character? 
20 26 91 O7A 19%6 cmpb rg #30 3; normal graphic? 
g 16 7B1 197 bgequ 1 és 3 yes, 1 sequence 
18 66 (69 783 1974 cmpb r6, #27 3; escape? 
: 13 yee 1975 beql 126s : yes, 1 sequence =. 
D6 «(078 1376 incl r 3 no, set count for 2 sequences 
0D 6 91 Q7BA 197 cmpb r6, #13 ; is it carriage return or higher? 
59 1A 07BD 1378 bgtru 1 6s : higher, do 2 sequences 
+ 13° O7BF 197 beql 30$ ; it’s carriage return, re-print Line 
07 6 91 O7C1 1980 cmpb r$ #7 3; is it pet! or lower? 
3 18 7¢4 «1981 blequ 1206s ; that it is, do 2 sequences 
OA 6 9 706 19 § cmpb r6, #10 :; check around Line feed 
AF 1F O7C9 19 blssu 308 ; it's backspace or tab, re-print Line 
9 13 O7CB 1984 eql 60$ ; it's Line feed, do 1 cursor up 
oc 6 91 O7CD 1985 capb r6, #12 : check around form fee 
1F Q7D0 19 § blssu : 1 ; it’s vertical tab, do 2 cursor ups 
18 7D2 19 bsbb $ ; do 2 cursor ups, fall to do 2 more 
1 704 19 8 50$: bsbb 608 ; do 1 cursor up, fall to do another 
57 0 ‘°F 706 1 § $: movzwl crtcup, r7 : get cursor up sequence base 
8 700 1 ’ $: addw 5veztemn. r7 3; Tind correct sequence pointer 
7 C Q7E1 199 movzwl (r7), ¢r : and get pointer to count, string 
8 7 A OQ7E 1336 movzbl (r7)+, r8 3; pickup the count, correct pointer 
6 7 A OQ7E7 1995 80$ movzbl (r7)+, r6 3; get a character 
FFOF g 7EA 33 bsbw oghe byte ; and output it 
F7 58 «OCF 7ED 1995 sobgtr r8, 8 ; _ then loop for more... 
7F 1338 echo_dump: 3 quap che buffered echoing 
00000000 ‘EF ; 7F 133 Rstw txoint : is terminal output buffer free? 
E 7F6 1 bgeq 0 ; nope, go exit 
0000"8F  00000000°EF 7F8 (1 cmpw 3 ptr, #ttobuf 3 yep, anything buffered therein? 
3 ’ beql 0$ 3 nothing there, go exit 
FB68 bsbw tecSoutput ; else start that output going 
§ 90$: rsb 3 exit 
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FFFFFFOO'EFS 7 100$: tstw ny8bt-256Cré] eck, the covers! table entr 
e ; é blss 8 : et ; digi its (< o> = 15 ’ 
03 00° AB ¢ é : bbs pt, _et$8bt, bretypetrit), 20 bit terminal? 
5 4 1108: movl #4, ; we must do 4 erase sequences 
FA23 1 120$: bsbw tecSwait : wait for ght output a be queued 
18 $qiow_s - 3 queue an i/o rogues with wait 
18 chan = w*ter_o_chan, - +_ on the terminal write 38 
18 1 func = s*#ioS_writevblk, - ; with a write function code 
18 12 1088 = w*ter_6_pos ; $oO we can get horizontal position 
ae 18 CLRQ =(SP) ~ 
05 bb Obie PuSHL AO 
Q bp PUSHL ; 
E C CLRQ — 2 
010° 60" F PUSHAQ Sere 
F 0’ C MOVZWL 3° “#ios$ ari teveth -(SP) 
7E «(0 ae: 3¢ t MOVZWL w*ter_o_chan,-(SP) 
00000000 ' GF FB : CALLS V “SYS$Q10W 
50 O016'CF 9A A 2013 movzbl w*ter_o_ pos+6, r ; extract the 1 based position 
1A 135 F 14 beql 130$ 3 @ zero, no position, skip it 
58 Hh D1 41 15 cmpl 0 r8 ; are we looking at a Line wrap? 
15 16 0844 1 bgtr 1368 : nope 
57 00000000'EF 6 46 1 movzwl crterl, r7 ; get erase Line sequence base 
\ a 4D 18 bsbb 160$ : and go to do it 
57 QO000000'EF  3C¢ 4F 1 movzwl crtcup, r7 3; get cursor up sequence base 
15 10 26 0 bsb 160$ ; and go to do *4. aise 
FFIF «31 23 1 brw 30$ 3; now go really do it.. 
02 58 #01 58 ; 130$ cmpl r8, #2 3; how many sequences do we need? 
1 5 4 blss 1568 : 1 
1 6 5 beql 140$ 3 2 
1 6 § bsbb 140$ : we need 4 sequences 
0 1 64 1908: bsbb 150$ 3 we need 2 sequences 
57 00000000'EF $ 8 1505. movzwl grterc. r7 3; get erase character sequence base 
FF6D 1 3 8 1608: rw 0 ; go do the sequence, then exit 
$875 031 .disable lsb 
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VES 00 Page backwards 18-$Ep-1 984 96:14:08 YTECO. SRCITECONAT -MAR: 3 . 
i 3 .sbttl Page backwards 
if 5 .enable lsb 
7 10$: err NFI, <"'No file for input’’> 
FSB 7 ut 
0 003 * 087 long $$$$$$ 
. -word $$$$$ 
72 6F 66 20 65 6C 6? $6 60 4 4§ 29 ; eascic "No file for input" 
it 
7 3038 208: err NFO, <''No file for output'’> 
F8CB 20 77 w err 
0000958 * 087A -long $$$$$$ 
87F $9 word $$$$$ 
72 6F 66 20 65 g¢ $9 $6 $0 gf rt 3 rs eascic “No file for output"’ 
$7 040 
ere 041 tec$bakup: 3; page backwards 
56 OO°AB 360 7 beg movzwl b*inpntr(ri1), r6 3 get pointer to input file pointer 
56 66 00 8 8 mov l (r6), 76 3; then get input file fab pointer 
9 ; 44 beql 10$ 3 no file... 
6 po bez pushl 6 3; save input file fab pointer 
56 "AB ; 9 8 ovzuvl b*oupntr(ril), ré6 3 get pointer to output file pointer 
56 66 D D Bf movi (r6), r6 ; then get output file fab pointer 
E 1 89 $3 beql 20s 3 no file... 
50 88 7F 8 pushaq ateah$q_tecque+4(r6) ; save current last buffer pointer 
6 D 50 ushl 6 3 save output file fab pointer 
O1AD 0 051 sbw tec$putuf 3 now go dump the text buffer 
56 Be D 26 mov l (sp)+, r6 ; get back output file fab pointer 
1150 A6 =O E 5 bbs #fabSv_tecbuf, fab$l_tecsts(r6), 30$ ; already into buffering? 
54 Srewind - 3 rewind the output file 
55 rab=@fab$l_tecrab(r6) ; so we can re-write it later 
54 86 OF PUSHAL @fab$l_tecrab(r 
00000000 ' GF re. CALLS #$$.TMP1,G*SYSSREWIND 
FE4F 3 $036 bsbw success_or_err : chesk for success completion 
5 bs #fab$Sv_tecBuf, fab$l_tecsts(r6) ; indicate data is buffered 
28 A6 04 88 bisb mat puatgcbul. fab$l_tecsts(ré6) 
5 10 AA AE 28 30$ mnegw _r4(r10), ¢ 7 get number of pages to back up 
51 8—& 7D 5 movg —33* r 3 get start pointer & input fab pointer 
53 S58A6 7 60 movaq te $q_tecque(r6), r3 ; address the output queve's root 
53 1 8 40$: capl f r3 3; have we backed to the top? 
8 C : beql o$ : yep, must exit the loop early 
51 04 Al 4 C ? movl 4(r1), v1 3 else Link backwards to the next 
5 ° C 4 decw r 3; should we look at it? 
F & c9 65 bgtr 40$ 3 yes, so loop... 
10 AA & cB 66 208 enone r0, i_r4(r10) 3 return any remaining count 
5C A6 : cf 60$ geet ols fab$q_tecque+4(r6) ; have we finished pruning? 
€ 3; yes 
50 5 08 F b8 $ —* of absa tegqueeé (76) . r0 ; oy remove a buffer from output tail 
58 A2 E D 9 insque (r0), Tab g.tecque(r2) : ang add it to input queue beginning 
DD 207 #tabgy cbuf, ab$l_tecsts(r ) ; say using buffered data now 
50 A204 $8 D bisb toe afabSv_tecbuf, fab$Sl_tecsts(r2) 
EC : $078 rb 08 ; loop for the next buffer... 
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v89.02" Get input” 18-SEP-1986 99:10:05 EFECEMSaCHTECoNaT-Man:3 "89° ($3, 


Ee 4 esbttl Get input 
Ee enable Lsb 
E4 2 108: err — <''No file for input'> 
FRSE 30, OBEG Dsbw err 
0 003 A’ 5 -long $$$$$$ 
72 6F 66 20 65 6C 69 GF GF 00" O37¢ iscle "No tile for input" 
eascic e for inpu 
238386 29 as , 
EB 3 
50 A6 6 EB 6 4 20 incl fab$l_tecsts(ré6) 3; set internal end-of-file indicator 
EE 5 .assume fabSm_teceof éq 1 
EE 8 § Sclos osé - 3; close 
EE 8 fe =(r6) 3; the file 
66 OOF 8E PUSHAL 
00000000 ' GF 01 F +4 CALLS aS Yet G3 SSCLOSE 
O10C'CF OC A6 — F +t] movl fabSt_s tv * w“err 7 save the STV value 
F7FE O8FD 2089 bsbw veces _or_er ; heck f for success completion 
AB 8 : mcomw F eoflag(r 3 ot end-o e flag 
00° 00 4 2 ? 031 30$ " 0. b*eof lag( rit) . 7* file f 
rs 3 and ex 
905 9 
03 50 A609 4 905 $98 40$: bbc #fab$Sv_tecb2, fab$l -tecsts(r6), 50$ ; /b2 mode? 
8 0 Q90A 2094 bsbw 150$ ; yes, go do trailing trims 
00'AB 00 Be 90D 2095 50$ mcomw #0, b*ffflag(ri11) 3; set form feed flag 
0 iB 83 rsb 3 and exit 
91 $98 tec$getbf: : get input 
OO'AB B4 091 099 clrw b*eoflag(r11) 3 preset 3. at end-of-file 
00'AB 74 91 100 clrw b*ffflag(r11) ; preset no form feed at buffer's end 
56 00°AB C 0918 2101 movzwl b“*inpntr(ri1), r6 3 get pointer to input file pointer 
56 66 0 91C 21 ¢ mov l (r6), r6 3 then get input file fab pointer 
C 1 91F 21 beql 10$ 3 no file 
57 6A 0D 921 2104 movl i_rO(r10), r7 3; get buffer pointer 
58 O04 AA OD 924 2105 movl i_ri(ri0), r8 3 and room counter 
26 1 928 21 $ beql 120s ; NO room at all, we'd better exit... 
8 OD 92A 21 60s deci r count down the room counte 
04 50 46 02 3 92C 21 8 $ bbs at abbey tecbuf, fab$l tecsts(r6), OS ; never eof if buffering 
CB 50 A6 CCE 931 21 blbs fab$l_fecsts(r6), 308 ; keep Saying end-of-file if true 
9 110 gpeoune fab$m_teceof éq 1 
0398 30 09 H 111 80S: bsbw byt 3; get the next character 
00000000 ' 8F 2 116 capt ro ras$_eof 3 ene~of@ tite ? 
e 3; yep. so q 
F7BA 5 941 114 bstw success_or he F 4 Os eb — * * success completion 
05 50 as 99 3 *8 12 bbc sfabsy., tecb2, fab$l atecsts(rg), /b2 mode? 
cm 3 
oF i$ 94¢ 119 begl OE 3 —* ine: the <cr> (for now...) 
0c 91 094 118 90$ capb os, #12 : it ds 
‘ 1 95 11 beql 408 3: yep. we're don 
87 2 1 9 movb rl, (r7)+ 3; nope, store tn the text buffer 
00's 86 9 1 incw att Na ; and. count it as stored 
gt Te g3¢ 158 ote te pag 
ne 
OE 50 A6 9? ef H 124 bbe” #fabSv_tecb2, fabst _tecstsiré), 1098 ibe mode? 
C 8 8 125 bsbb 1 os ; yes, go do trailin ng tr trims 
87 OAOD 8F 8B 9 126 movw #13+<1088>, (r7)+ ; store closing <cr><Lf> 
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*9 addw #2, deeten and count the added <cr><if> 
08 AA i_r2(ri10) 
AA 


#128 


bs 
§ 


} 7 
| | how's room doin 
1 
1 
i 
1 1 
} § 1408: acy b*zz(r11) 
r 
} 8 150$: cnet rs ir 0(r10) 
2 
120 ¥ 
148 
14 
14 
144 
145 
146 
147 
148 


out of room, we “nose quit 
down a very smal 

no e. loop for parc. 

@x 


then coe tetas! the free space 
00000080 8F 


Ovo 
NOOO 
Nun > 


w 
wn 
ont 222 


o-oo 
we 


backup the the o pointer 
remove a charact 

and increase the. free space 
ag up too far? 


AI mys f,, Stop 


00° 


cmpb igbs,- #*a/8/ 


~™ 
o 


o 
* 
—DD————— 

— 
o—0— 0 0" 9 OO 
WOOOOOOOOOOOOOOOOO 

oOo 


VW ———— 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


F 
7 
1 beql tone e it 
20 7 9 saab (r7), #32 * space? 
¢ 9 beql 149 2* it ,also 
“ § 4 a calling <tabe? oy 
e ‘ 
039¢ 1608: nen yes. at gets removed too 
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444 } -sbttl Put output 
99D 2152 dump_data: 3; dump buffered data 
O3FC O99D 21 sword “m<r2,r3,r4,r5,r6,r7,78,r9> 
7E 58 A6 7D 443 154 movg fabSq_tecque(ré), -(sp) ; replicate the q eve root 
50 6€ 7D A 155 mova (sp), r : eddress head ( 0) and tail (R1) 
04 AO 6E /7E OQ9A 1 § movaq (sp), 4(r0) 3; re-Link head's back ptr to our copy 
61 6 7E Q9AA 21 movaq (sp), (ri) 3; re-link tail's forw ptr to our copy 
58 A6 2 A 7E Q9A 1 8 movaq fab$q_tecque(r6), fab$q_tecque(r6) ; reset the real 
5C 8 46 7E 098 1 movaq sane _tecque(ré6), fab$q_tecque+4(ré) 3. queue root 
5 F8 BD 8 98 160 10$: remque 85 (fp), rd 3 rempye next item from the queue 
13 D 0988 1 bvs $ 3; nothing more... 
5 DD O9BD 21 pushl ; else save pointer to removed hunk 
53 10 4 4 SBF 216 movl areca ir) « r3 ; address the data 
54 OCA D ats 164 mov l +4(r0), ¢ ; and get its count 
59 Be 9C 165 clrl r 3; don't add any <ff> 
0086 0 09C9 198 bsbw put_buffer 3 now go put it out 
,20 +3 DO O9CC 216 mov l (spy+, r0 ; get back pointer to removed hunk 
OD9F CF FB O9CF 198 calls #0, w*free_data ; and free it up 
el 11 ape 19% brb 10$ 3 then loop for the next... 
04 $e 178 20$: ret : return 
907 21735 save_data: 3; save the put buffer data 
7E oozt 3 158 ie A i k F LIBSGET_VM 
clr -(s 3; make room for args 
63 54 of 7 0308 176 10$: loce nie r4, (r3) : is there an embedded <ff>? ° 
e 3 nope 
s2 8% 380 G Q9E1 2178 R rO, r4, r2 3 oe find this hunk's size 
5 D6 O9E5 2179 incl 3 3 ane busing the <ff> 
¢ 10 O9E7 130 bsbb 60$ 3 go allocate and load a buffer 
53 C 9E9 2181 addl re, r3 : bump pointer over this hunk 
3433 C 9EC 21 § subl re, 74 ; and skip it in the count 
A 1 SEF 21 bneq 10$ ; loop if there's more to look at... 
9 OD 9F1 2184 20$: tstl r9 3: a trailing <ff> to add? 
02 1 OF 185 beql 30$ 3 nope 
54 0 OF 196 incl r4 3: yep, so count it in the count 
52 54 OD OF 187 30$ mov l r4, r2 3; Now use the remaining count 
0B 1 SFA 21 3 beql 40$ 3 nothing roneining. ». 
OD 1 SFC 21 bsbb 60$ ; go allocate and load the buffer 
29 oF 190 tstl r9 3; are we adding a <ff>? 
a7 -% A 191 beql 40$ 3 nope 
13 alse .. 2 A 135 movb #12, Beaeo1 (rire) 3 yep, load in the <ff> 
5 1 A 19 83 novi “i,er 3 sey success 
A 3 50$: ret : exit 
F8 AD 52 14 C1 OA 136 60$: addl3 #8+4+8, r2, -8( fp) 3 set hunk size w/ overhead included 
FC AD ODF QAI 19 pushal -4(fp) 3 stack address of (returned) address 
F8 AD ODF OAl 128 pushal -8(fp) 3; stack address of size 
00000000 ' GF 3 4 A16 219 calls #2, Qng bSget_vm ; go allocate virtual memory 
EA E Al 0 blbc r 0$ 3 exit if any error... 
51 FC AD DO OA 1 movi <-4¢fp), 1 : address the allocated new memory 
3F Be A § ushe #*a<r0,r1,r2.r3,r4.r5> ; saye the MOVC clobbered registers 
5¢ B6 C61 A26 nsque (ri), StabSq tecque+4(r6) ; insert new hunk onto queue's tail 
08 Al FB AD 00 OA2A 4 movi  -8( fp), B(r1d : load total size of hunk into hunk 
OC Al 5 3 A 4 5 movl r Bedcrt) ; load data size of hunk into hunk 
10A1 146A — OA 6 movab 8+4+8(r1), 8+4+4(r1) ; load data address of hunk into hunk 
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4A A38 7 » (3), 84448(r1) ; load data itself into hunk 
: —— ASD 3 fee tes rf, r2.r5,r4,r5> 3; restore the MOVC clo Soe red registers 
Ah rs 3: exit 
ve ! enable Lsb 
AS 15 108: err =e <"No file for output’’> 
33 0 OA4 bsbw 
Q000038E" OA4 . long $$$5$8 
72 6F 66 20 65 6C 69 66 20 GF 4E 5 ls "hs Tuk bet ete 
. -ascic ‘No e output"’ 
BBR T E 
AS 14 
AS? 15 tec$putbf: ; put output 
53. 6A 00 QA47 18 peta: movl i_rO0(r10), 3 ; Bet text buffer pointer 
54 04 AA DO OQAGA 1 nevi jar dirie}. r4 : and character count 
59 O08 AA 00 OA4 18 i-r2(ri0), 9 3; put emit <ff> flag here F 
AS 19 put_ butter: : internal put output 
56 00 Aß 3C OAS 0 movzwl b*oupntr(ril), ré6 3 get pointer to output file pointer 
56 66 0 ne 1 pov! 159) ré6 ; att get output file fab pointer 
57 54 Ab DO 6458 § * fab$l_tecrab(r6), r7 : file, get the rab pointer 
FF? CF roe F ASF 4 calls #0, save_ * ; go save the put buffer data 
5 464 5 bsbw success_or check for success completion 
01 50 A6 5 0A67 § bbc #fabSv — fabst tecstsirs), x J 3 proceed if not “buffering 
5 vy 03 rsb 3 else 
51 53 00 OA6D 9 208: movl r3, ri 3 save ei position 
52 D0& OA 9 0 clrl re 3 and reset count 
* D7 647 1 30$: decl r4 3; more to look at? 
E 19 OA74 § blss 130$ 3 nope 
5 D6 OA7 incl r2 3 ye Rs count presher character 
0c 3 2642 4 cmpb (r3)+, #12 : or highe 
FS «1A (OA 5 bgtru 30 ; higher. peee looking... 
OA FF AS’ 91 OA7D 6 capb “1(r3), #10 3 > or lowe 
EF 1F OA81 7 blssu_ 30$ : —* keep te king.. 
81 A bneq 110$ 3 <vt> or <ff>, do record 
1E A6 03 of ABS § bitb #fabSm_cr! fab$Sm_ftn, fabsbor grees)’ ; Lf/cer and/or ftn cc? 
re 489 40 beql 110$ 5 ie. so no additions, afc. ., do record 
01 3) D1 OA 41 capl r2, #1 3 anything before the <lf>? 
5¢ 13 54 4¢ bleq 1168 : nope, go do a record 
OD =6FE ag 91 OA 6 4 cmpb eT #13 3 Yep. | it a <cr>? 
1 A 4 bneq 110$ 3 no, 49 2 a record also 
02 8 of Ae i geet abe #2 3 enyth ng before the o cer><lf>? 
eq : nop 
-3(r3), #27 : yep, is it <esc><cr><Lf>? 
" M3 34 ASE d gene 1108 — iat don't remove Ferret er. etc. 
5 3 (2 AA! 8 40$ subl #2, r2 ; over. the aero 
43 50 46 E AAS bbc #fabSv_tecb2, fabSt_tecsts(re) mo de? 
Be A49 * f 5 3 fo thi J— in’ els record? 
AAB eq : 
-3(r3), #*a/8/ : yep. is it <@><cr><lf>? 
a" i i AB? 3 50s beat 1108» : 3 yep: at 3 9° output as is 
: 3; more to come 
is § glee Togs 3; nope, but check, for <ff> coming 
30 63 91 OAB capb (r3), #*a/0/ : is next a digit? 
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; 1F OABA : blssu 60 3 non-digit, add '8'' to record 
39 91 OABC cmpb (r3), #*a/9/ 3 really a digit? 
8 1 ABF $ blequ§ 11 ; 3 yes, a digi next, go do the record 
7 8 AC 60$: movw -(r3), Hh 3 save the <cr><lf> from text buffer 
63 § 09 Bf B ACS 86 movw #pe<ig/t/e >, (r3) 3 guess at adding <tab><&> to record 
2 bd1 OAC9 6 gael 3 a 3; already across the first tab stop? 
D 14 OQACC 64 bgtr 80$ 3; yep, change set to <space> 
2 ! 4 Act 65 movl ri, 3 ; else copy pointer to record 
d AD 96 70$: cmol rs, r ; are we up to record's end? 
08 1E OAD4 6 bgequ 90§ : yes, no <tab> in record 
09 8 91 4 cmpb (r5)+, #9 3 is this a <tab>? 
F 1 AD § bneq 7 $ 3 not a <tab>, keep Looking 
3 9 ADB gos movb #32, (r3) 3 cheng to adding <space><&> 
2 ¢C 9 71 90$ addl #2, r2 3 we added 2 characters to record 
D 10 OAE 3* bsbb 1864 0 put the new record 
83 —E 8B AES 7 movw (3p)t. (r3)+ 3 restore <cr><lf> into text buffer 
r 3 and go check for normal completion 
06 11 J a brb 120$ d heck f l leti 
59 08 OA 6 100$: tstl r9 : a <ff> coming? 
D5 \ AEA 7 neq 60$ 3 yes, 9° add to record 
22 1 AEC 4 110$:  bsbb 150$ 3; go put that record 
F60D 9 AEE 79 120$: bsbw Suc ceee_or ert 3; check for success completion 
FF79 1 wi + brw 0$ 3: then Loop... 
59 03 BaF Hf 130$: tstl r9 3; add a <ff>? 
19 13 pare beql 100% 3 nope 
3 6 90 OAF 84 movb (r3), =(sp) 3 yep. save the next byte 
6 9 90 OAFB 85 movb #12, (r3) 3 then make it a <ff> 
5 8 8 incl ‘ ; and count that <ff> 
OE 1 8 : bsbb 150$ : go put the final record 
63 8€ 90 3 movb (sp)+, (r3) 3 restore the next byte ; 
FSF6 31 8 8 brw success_or_err ; check for success completion & exit 
52 0 91 140$: tstl rs : any size? 
24 Ct 4 3 beql 170$ 3 nope 
FSEE gf oF 9 pushab w*success_or_err 3; check for success completion on exit 
38 A? 1 00 1 94 150$: movl ri, rab$Sl_rbf(r7) ; set starting address of record 
2 47 25 B0 14 95 movw ee rab$w_rsz(r7) : and record's size ; 
5 D4 18 38 clrl r :; clear our ‘‘over quota’ flag 
BIA 97 160$: S$put - ; put a record 
BIA 98 reper?) ; to the file 
67 DF OBIA PUSHAL (Fr 
00000000 ' GF Ba. BI CALLS #$$.TMP1,G*SYSSPUT 
010C CF CA? OD : 99 mov rabsl gyvir ), w*err_msgvec+8 ; save the STV value 
450 € : 0 blbs r0, 170$ : all done if no error 
0158 00 3 : 1 bbcs #0, r8, 180$ : really an error if second time 
: § 170$: rsb : exit 
00000000'8F OC AZ D1 0B31 4 180$: cmpl + $l_stv(r7), #ss$_exdiskquota ; is it the quota error? 
F5 12 0B39 5 bneq 3; nope, a real true error 
B38 6 s s“#io$v_canctrlo, ctlofg ; 99 a control/o cancel 
00 00000000'EF 00° €E3 + 300148 bbcs s*#io$v_canctrlo, ctlofg, 30014$ 
O323'CF 7F QB4 7 pushaq w*quota_msg_desc 3; set the quota exceeded message 
FB14 CF O11 FB 0B4 3 Lt #1, w*tec$out_ascid 3 and go output it 
! ie} BAC 09 r 66s ; now go try, try again... 
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VE 02 Get an input byte 18-$£p-1 984 96:16:08 {TECO. SRCITECONAT MAR: 3 — (33) 
B4E 13 .sbttl Get an input byte 

B4E 14 


ate 1g -enable Lsb 
B4E 17 getbyt_emit ctl: 3; emit a control character 
51 FFFFFFAO Br CA 43 18 — bicl #*c<<186>!31>, r1 ; trim_to B-bit flag & control char 
OE 51 06 ES 0B55 3519 bocce #6, rl, 108 i use 7-bit, set control {1 <é>e6 
; else use 8- s r 
0051 07 E3859 soorss, eee 5: rt, 300158 . ane ee 
08 11 OSD 1 ” brb 10$ ; and go emit it 
Spe j getbyt_emit_cr: ; emit a <cr> 
51 OD 9A OBSF 4 movzbl #13, r1 3 set the <cr> 
03; 11 88 5 brb 10$ 3; then go emit it 
0B64 ; getbyt_emit_lLf: : emit a <lf> 
51 OA 9A 0B64 8 movzbl #10, ri 3 set the <Lf> 
60 A6 BE 4 0B67 10$: mov (sps+, fab$l_tecdsp(r6) ; set the next dispatch address 
0 pone , rsb 3: exit 
1D 1E A6 96 E1 oper § 208: bbc e3 orn, fab$Sb_rat(ré6), Rs br a not print file format 
00000000 ' 8F 1 oY pete z * Oe #rms$_eof 3 end-of-tiLe? 
ne other err 
06 50 46 03 £6 OB7A 35 bbs. #fab$Sv_tecicr, fab$l tecsts(rés, $0$ $ just ignored, a <cr>? 
0D 64 A6 91 OB7F $39 cmpb {abst tecctl(r6), #13 ; was last character a <cr>? 
09 3 0B83 233 bneq ; not a <cr>, nothing more needed... 
DD 1 pass 338 30$: bsbb — emit_ if : ignored or last <cr>, go emit a <if> 
50 00000000'8F 4 0887 $2) mov éof, 70 ; Now restore the end-of-file code 
8E D peak 40 408: tstl ; pop the return exit 
05 83 $0) rsb 3 and exit with error code 
0891 38 getbyt_first: initial dispatch entry point 
60 46 FD AF 4 0891 4 movab b“getbyt_first bar _tecdsp(r6) 3 set new record dispatch 
54 46 OD 8 pore fab$l_ etrab(ré), 5 ; get the rab pointer 
et - Ps 
OB9A 47 . rab=(r5) 3 othe next record 
65 DF OB9A PUSHAL (r 
00000000 ' GF es. 39 CALLS 4#$$. arts — 
O10C'CF OC AS OD + 8 — rab$l (r5), werr -msgvec+8 3. save the STV value 
00000000'8F 50 01 BA 4 cmapl re itas _normal 3; normal completion 
BA 12 OBE 50 bneq 2 j ng ¢ exit with — code 
26 1E A6 g E1 OBE 51 bbc he _prn, fabSb_rat(ré tr file format? 
66 A6 ae 8 BB 2 movw abt rhb(r5), fab$l rere esd 3 copy vi vfc bytes 
51 ‘6 BE cvtbl l “fecctl+2tr6), 3 ; get the ‘pref byte 
a ce re! he 
: ss 
05 50 46 01 Fs BC § bbss ftebsv tecnolst, fab$l tecstscress, 60$ first time? 
66 Ag BC 3 50$:  decb tite fecctl+2(r6) another ‘prefix’ <cr><lf> to do? 
15 QBCC bleq : nope, go do the real data 
7 18 BC 59 608: bsbb etbyt_emit_cr : yep, emit a <cr> 
g 1 BD $ bsbb getbyt emit_(f > emit a <Lf> 
F 11 1 brb 3; now * Mae 
FF77 30 OBD4 86 0s: bsbw 99 tpyt-e emit_ emit a control character 
BD7 64 80$: bs gcns J a RB 2 ) ; not first time anymore 
50 A6 02 88 0807 bisb sai atae vtecnolst, fab$l_tecsts(ré6) 
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v8 -02 Get an input byte 18-86-1984 96:14:82 TECO.SRCJTECONAT.MAR; 3 . (29) | 
OW 44 5 brb 100$ ; then continue | 
7A 3 BDD 7 90$: clrb fab$l_tecctl+3(r6) ; guess at no carriage control 
1E A6 8 23 4h 8 ca ° ab$m_cr! fab$m_ftn, fabbb_rat (r6) : implied Lf/cr or ftn ccl? 
; neither 
$7 7 9 Eg ncb fab$l_tecctl+3(ré6) 3; one or the other, do cr/lf at end | 
2A B BE 7? tstw rab$w_rsz(r5) ; a null record? 
| BEC 7 beql 1308 3; yep, no need to process it... | 
60 6 FS'AF 9 E 75 100$: movab Weare fab$l_tecdsp(r6) ; set dispatch for record data 
5 54 Ag D F 74 110$: movi absl_tecrab(76), r ; get the rab pointer 
22 A B F 75 decw rab$w_rsz(r5) ; more in the record? 
o 19 FA 6 blss 120$ 3 nope 
51 38 B 9A OBFC 7 movzbl @rab$l_rbf(r5), r1 3 yep, $o get a byte | 
8 AS BG coe 78 incl rab$l_rbf(r5) ; and bump the record pointer 
0 8 38 rsb 3; —sothen exit 
51 67 a6 8 8 4 1208.3 cvtbl ——— ri ; get the ‘postfix’ byte | 
13 0C08 § beql 140$ ; none 
6 19 46 blss 150$ ; 3 ggatrot 
13 1E 46 2 €0 OCcOC & bbs #fab$v_prn, fab$b_rat(r6), 130$ ; print file format? 
51 64 A6 QA OQC11 85 movzbl fab$l_fecctl(r6), r1 : get last record data byte 
| Ba: oe. zoß 388 cmpb ri, #27 i; was it escape? 
15 13 OC18 238 beql 1468 ; it was, no additions | 
oc 51 £491 OCIA 88 cmob ri, #12 3 was it <ff> or higher? | 
05 1A OCID 2389 bgtru 1308 : higher, 90, add a <cro<tf> 
OA 51 91 OCIF 90 cmpb ri, #10 3 was it <[f>, <vt>, or <ff>? | 
98 1E O0C22 91 bgequ 146$ ; one of the above, no additions | 
FF 30 0C24 3 1308: bsbw getbyt_emit_cr 3; emit a <cr> 
FF3A 30 O0C27 9 bsbw etbyt emit_(f zs emit a <lf> 
67 Ag 97 OC2A 94 decb abs tecctl+3(r6) 3 another ‘postfix’ <lf> to do? 
F 14 OC2D 95 bgtr 130$ 3; yep, so do another 
a 31 bc F 38 140$: brw getbyt_first 3; now is the time for a new record... 
| 
FFI9 309 cS 98 150$: bsbw gr tbyt_enitictl ; emit a control character | 
FB 1 : 8 brb 40$ 3 then go to the next record 
C37 2401 .disable lsb | 
C37 8 
W enable Lsb 
50 58 46 DO OC37 2405 108: mov l fab$q yesque(r6), r0 3 get queued data buffer pointer | 
51 1080 9A OC 4 $ movzbl @8+4+4(r0), r1 3 get character from buffer 
10 AO dg C3F 24 incl +4+4(r0) ; bump the buffer pointer 
Oc AO 9 C4 4 8 decl +4(r0) 3 count down the count 
46 2 0C4 4 bneq 0$ ; more remains, go exit 
50 58686 OF OQC4 rt remque @fab$q_tecque(r6), r0 ; no more, remove buffer from queue 
04 12 OC4B 241 bneq 3; another buffer remains in the queue 
C40 2412 be #fab$Sv_tecbuf, fab$l_tecsts(r6) ; else turn off buffering 
A6é 4 8A OQC4D bicbh s*#lafab$v_tecbuf, fab$l_tecsts(ré6) 
OD9F *CF 9 re C51 2413 208: calls #0, w*free_data ; go free up the buffer | 
1 i ig brb 60$ ; Now go exit | 
65 a6 95 OC 213 30$: tstb {pest veccelet (re? ; have <cr>, already at left margin? | 
4 12 QOC5B 241 bneq $ 3 nope we need this <cr> 
C5D 2418 s #fab$v_tecicr, fobs) terstetr §; yep. say <cr> ignored... 
50 46 08 88 656 ——A——— | 
C61 2419 getbyt: 7 get an input byte 
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4 38 ge ep C61 2420 bbs #fabSv_tecbuf, fepst “tests re), 3; is share buffered data? 
8 A — C66 2621 bsc #fab t-teegee ab$l_tecsts(r 7 2 o <lf> if extra <cr> 
60 BS 6 OC6B 24 é sb afab$l~tecd spir else d ispatch to proper routine 
16 1E A6 Ei OC 4 be #fab$viprn, fab$b rat(rés, f not print file format 
C 424 be #fab$Sv_t tase fab$l_tecsts(ré6)- : wads <cr> ignored flag 
50 46 98 ga C bicb smlarge v —9 fab$l_tecsts(ré) 
0D 1 1 OC? 425 cmpb ri, #1 7 <cr> or greater? 
09 1A OC7A 24 $ bgtru 40g : greater, normal & no left margin 
A 13 OC7C 24 beql 30$ 3; it's <cr>, so left merein 
OA 1 91 OC? 4 8 cmpb ri, #10 : is it <lf>, <vt>, or <tf>? 
06 1A OC 4 bgtru 508 : it's <vt> or <ff> 
1 1 ¢C 4 ? beql 0$ 3; it's <lf>, check for needing <cr> 
65 A 9 9 C 431 408 movb #1, fab$Sl_tecctl+1(r6) ; set non-zero for not at left margin 
64 A 2, oO C89 24 § 50$ movb ri, fab$l_tecctl(ré6) 3; remember last character returned 
50 Q00000000'8F D0 OC8D 2433 60$ movl #rms$_normal, r0 3 $-t normal completion 
05 Re r : rsb 3; and exit 
64 46 51 81 63 4 § 70$ cmpw ri, fab$l_tecctl(ré) : é <lf>'s at left margin? 
E 12 0€99 24 bneq 308 ; —* 
51 D 9A OC9B 2438 movzbl #13, r1 set the emit. th <cr> 
EA 50 A6 64 8 HK) 439 bcs atabsy tececr, fab$l teed ts(r6), 60$ ; emit ; e extra <cr> 
51 _ OA A OCA 440 80$: movzbl #10 : w (re=)set the < 
65 A6 894 —5 441 908: clrb fab$l. tecctl+1(r6) 3 indicate left An}. 
DE 11 OCA re brb 50$ 3 and go exit with <cr> or <Lf> 
OCAB 244 
OCAB 2444 .disable Lsb 
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yy eae output 


enable Lsb 


if 

4 

4 tec$outsv: 

4 movw 

4 g set_outputname: 

4 movzwl 
r 

454 b b 

455 

139 

458 tecSinpsv: 

136 movw 

460 set_inputname: 

re clrw 

4 ¢ movzwl 

rf 10$: clrb 

464 movl 

465 beql 

188 bbs 

ass lbc 


Ww 
So 
oF 
o 
3 
2 
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ca 
o 
of 
3 
°o 
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50$: rsb 
disable lsb 
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sbttl Switch to alternate output 


#oupalt, b*oupntr(ri1) 


b*oupntr(ri1), r7 
10$ 


-sbttl Switch to alternate input 


#inpalt, b*inpntr(r11) 


b*eoflag(rii) 
ree r7 


(r7), v6 
50$ 


#fab$Sv_tecbuf, fab$l tecéts (re) 
b fab$l _tecsts(r6) , 20$ 
468 .assume fabs. seg of é 


qi 
o b*eoflag(r1) 


fab$l =nen(rg) . r0 
nam$l_rsa(r0), r1 
pgasb. rsl(rO), r2 


(rl) 
30$ 
ri 
#filsiz-3-1-1 


rd Sie ae 1-1, r2 
ne, § (ri), filsrt 
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switch output file 

do the pointer switch 

set output file name, etc. 

get pointer to output file pointer 
go set file name, etc. 


; switch input file 
; do the pointer switch 
set input file name, etc. 


; guess at not at end-of-file 


get pointer to input file pointer 
; pees at file closed (no name) 
‘f. i , —8 pointer 


osed 
268" never eof if buffering 
; branch f not at end-of-file 


eof, indicate such 
set a file name, etc. 
get pointer to nee from fab 
and pointer to fi Lename 
and ger, filename's Length 
no orn 
a star * null? 
e 


—* skip 
also hi le a unt 
will the caole’ sees tttcation fit? 


e 
i hope. we must truncate it 
weve in the file const itnenien 
d make reaust asciz 


bfabsy Rech, fab$l _tecsts(ré), 50$ 


#*a''/B2"' 


i yep, “add WR, Soleeh and asciz again 
3 exit 
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00000000 ° 8F 
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4 ‘3 -sbttl Close input & output files 
4 8 enable Lsb 
D1 494 tec$clsfl: ; close input & output files 
10 4 $32 bsbb close_input ; close the input file first 
4 63! sbttl Close output file 
D1 199 tec$clsof: : close output file 
3 D1 5 movzwl b*oupntr(r11), r7 + get pointer to output file pointer 
9 4H 2 10$: —— its # r6 ; get ie s fab pointer 
E5 ODIE 25 bbcc #fab$v_dlt, fab$l fop(r6s, "808 3 file, don't delete it 
E5 OD 504 bbcc #fabSy “tecbuf, fab$l “tecsts(r6), * * data buffer dump? 
FB OD 505 calls #0, w*dump_data 3 Yes. so so 
D4 OD2D 25 : 208: clrl = (rr?) : He 1s Soen no Longe 
E8 OD 5 blbs fab$l_tecsts(r6), 40$ ; already closed if a wend-ef-file 
D 508 .assume fab$m =tegeof eq éq 1 
30 0D 509 b 8 : release any and all data lines... 
D36 2510 $close - ; close 
8 6 2511 fab=(r6) 3; the file 
DF OD : PUSHAL (r6) 
FB 8 CALLS #$$.TMP1 -G*SYSSCLOSE 
DO ODS5F 31§ — fab$l_st v(r6), weerr -msgvec +8 3 save the STV value 
D1 8 51 cmpl r0, #rms$_eof 3 of we get end-of-file Cwhy?)? 
12 OD4C 2514 bneq 308 ; nope 
BS poe 515 incl r0 3; yep. fudge for success (RMS bug?) 
1 + 21§ 30$: brw success_or_err ; check for success completion & exit 
Spe 218 close_input: : close input file 
ef ob? 51 clrw b*eoflag(r11) 3; never eof if input file closed 
C 0056 2520 movzwl b*inpntr(ri1), r7 3 get pointer to input file pointer 
11 op 3h : 1 brb 10$ 3; then go close it & exit 
pose ; § esbttl Kill output file 
D5C 2525 tec$kilfl: : delete output file 
30 0056 2 — movzwl b*oupntr(ri1), r7 3; get pointer to output file pointer 
D d60 : mov | (r7), ¢ 3; then get output file fab pointer 
1 D6 8 bneq 3; a file, 2 close & delete it 
0 444 : 3 40$: rsb 3; else jus t 
008 : ; esbttl Close indirect command file 
D6 2 close_indir: ; close indirect w/ error checking 
9F 0D6 4 pushab b*30$ 3; error check upon exi 
535 reset_indir ; close indirect command file 
B4 9 25 § clrw b*indir(ri1) 3 ensure — 0 site. looks closed 
D — movl #rms$_normal, r0 3 pre-set o.k le*s not open 
D 8 mov l mdpra, r6 3 get ndirect tle fab pointer 
1 D7A beql 0$ 3 file 
1 p7c 29 bsbb 3 pelease any and all data Lines... 
D7E 4 $close - ; close 
D7E 42 fab=(r6) 3; «the file 
DF 43 PUSHAL (r6) 
FB 0d8 CALLS #$$.TMP1,G*SYSSCLOSE 
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Close ind 
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010C ‘CF C A6 Bp : 4 
D94 
bse oe OF Obes 
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0 D9E 
D9F 
D9F 
D9F 
D9F 
336 
08 A DD ODA 
FC AD OF 3 
F8 AD DF ODA 
Q0000000'GF 02 fe + 
DBS 
DB4 
DB4 
DBS 
0496 30 ODB4 
03 OO°AB 02 + £8 —3* 
50 90 a2 DBF 
F23B' 45} 
A2 11 0dt 
pc? 
DC7 
888 
50 7c 00 
05 000 
B88 
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AX/VMS Pace 
TECO.SRCITEC 
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clrl gedpre 3 nd say we did it 
mov l fabsl_stv(ré), wrerrnsgvece® 3; save the STV value 

50$: rsb 3 exit 

60s: calls #0, b*free_dat ; go free up the buffer 

$: remque atab q. tecduetré), 2 equeve the next buffer 

bvc 3; there's one... 
rsb 3 no nore. Ruͤ 

-disable lsb 

free_data: : free up a data buffer 
ewor “m<ri> 
pushl ; stack the buffer's address 
pushl 8(r0) 3; stack the buffer's size 
pushal -4(fp) ; stack address of buffer's address 
pushal P bad: 3; stack address of buffer's size 
calls #2, g*lib$free_vm ; go free up virtual memory 
ret 3 exit 

-sbttl Error message finish up 

tecSaller: : error message finish up 
bsbw note ng : not exiting if error 
cmpzv “eehelptrtt, #3; want sang § gl —— e⸗ 
bneq reer, aa 3 nope. on 
mcoml ; signal error — —— y Ses (-1) 
bsbw ——— ; and go do 
brb reset_indir 3 go ensure no indirect and exit 
tmporg tecoexelbr 
clrq r0 3 say nothing here... 
rsb 3; and exit 
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Get files opened, etc. 


fetch_filbuf 
non_nul 
i cetrt ) 


$ 
i_r2(r10) #*a/1/=*a/R/ 
close_indir 
non_null 
en_next 


#inpnor, b*inpntr(r11) 
set_inputname 


#oupnor, b*oupntr(ri1) 
set_outputname 


w*file_spec_buf, ri 
1, fe 


r 
w*file_spec_len 
wfile.spec_opt 
get-file_char 

$ 


r3, 20$ 
r0, #*a''/" 


rO, (ri)+ 
w*file_spec_len 
10$ 
w*file_spec_swt, ri 
r 
get-file char 
0$ 
r0, #*a''/" 
50$ 
r0, (ri)+ 
w*file_spec_swt+3 
40$ 
0 
“switch_list-4, r1 
+ 
) 
ile_spec_swt, (ri)+ 
), w*file_spec_opt 
le_spec_len 


i 
non_nu 
s 


$ 
$ 
1 
1 
$ 
f 
$ 
1 
$ 
f 
as$_Syn, r0 


8 
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(r 
(r 
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we 

60 
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50 
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do 
ar 
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et files (EB, El, EN, ER, EW) 
* fetch the Hlekons buffer 


go off to process non-null... 

null, but what is it for? 

it’s EW 

it's ER 

gone on now, what is it really? 
t's EI, go close indirect 

it's EB, we'll die in parse... 
it's EN, go get next occurance 

do the pointer switch 


and go set input file name, etc. 


do the pointer switch 
and go set output file name, etc. 


non-null file specification 

get pointer to filespec buffer 
in two registers 

reset the filespec's Length 


say outside of quotes initially 
er 


e en 
branch if inside quotes 
else check for a switch 
found one, switches start here... 
(re-)store into filespec's buffer 
and (re-)count it in the Length 
then loop for more... 


point to the switch buffer 
and clear it 
get a switch character 


null, end of this switch & spec too 


start of another switch? 

yes, go end this one first 

else store a switch character 
d we store too many? 

nope, continue 

yep. go give an error... 


get the switch List 
skip the bit pattern 
more to check? 
nope, 99 give an error 
a matcn? 
nope, ** checking... 
ep, set the correct bit(s) 
s there more to come? 
- go get i 


yes et it... 
; did we get any length at all? 


e 
3 that’s illegal 


bsbw 
- long $$$8$$ 
word $$$$ $ 
eascic “File not found" 
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ESE 7 
; 3 -enable lsb 
F290 31 2 : 7 108: brw success_or_err ; go die with the error 
0288 31 R ‘3 20$: brw en_preset : go do preset for ‘'en'' 
E64 44 do_non_null: ; do real opens, etc. 
08 AA 85 DEG 3645 tstw  4_r2(r10) S what is it for? 
Of 3 E67 8 bgtr 30 : it's EW 
4 1 E69 4 beql $ : it's ER 
FFF? 8F O08 AA a B68 +8 cmpw ir2(r10),#*a/1/-*a/R/ =; come on now, what is it really? 
15 E 4 beql 40$ ; it's EI 
EC 4 ete 929 bgtr 20$ ; it's EN 
57 vals. C OE? 51 30$: movzwl b*oupntr(ri1), r7 ; EB/EW, point to oytout file pointer 
56 D E79 O26 mov l (r7), r6 ; then get output file fab pointer 
ete E7C 265 beql 60$ ; cjosed is o.k. 
FESO 30 OE7E 2654 bsbw set -out utname : already open, set cpen file's name 
sec) 8 3 655 ** —— utput file already open 
§60003A . 4 - long Ss5sss 
SEBF A3 -word $$$$$ 
65 6C 69 66 0 74 75 70 74 75 4F 00° O3A5 eascic ‘Output file already open'“ 
65 70 6F 20 79 64 61 65 72 6C 61 20 0381 
6 tg 
1 AS 
344 $36 
FEDB 30 OE8 657 40S: bsbw close_indir ; close the current indirect file 
56 0378'CF E 658 moval w*indir_cmd_fab, r6 3 get the indirect command fab 
57 00000000'EF E9 659 moval cadpra, rc?” ; and where to store fab pointer 
28 3 969 brb 3 then join common open code 
E 666 50$: tstw b*nflg(r11) 3 are we potyrning a value? 
E 66 bgeq 10$ 3 no, just die with the error 
: 664 err eel <'File not found’’> 
EA 665 
08 AA EA $96 60$: tstw i_r2(r10) : is it EB or EW? 
0 EA 96 bleq —5 ; it's EB 
00D 7 3 brw 170$ ; it's EW 
FEA3 EAD $70 70$: bsbw close_input 3; close the current input file 
f 34 67 moval wu inggt.. nor_fab, ré 3 guess at normal input 
eB 33 cmpw inpnor” 3 good guess? 
EBA 267 beql aot ; 
484'CF 8 ore moval ut_alt_fab, r alternate input 
50 ig BEO'CF EC 75 80$ aovl w*file Spec “opt. fa $l tecsts tr) :; set file spec options 
60 46 aye F E OEC7 8 movab ᷣgeit rst, fab L_fecdsp(ré6) : reset he bytes byte dispatch 
“ A OECD a movzbl #10, fab$l_tec cee (r6)~ * sfc optic 
04 A6 63 gf 4 ED1 4 2* #tabsn, _$Q0, “ates l fop( (r65 ; reset f cption 
1E A6é 8 ED9 267 #<fab$c vere >; {ese cr, fab$b_ oe eral 3 poner record fmt/attr 
EDF 2680 .assume fabsb_ rfm eq fab b_rat¢1 
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SEP=1 TECO.SRCJTECONAT .MAR; 3 


et, fab$Sb_shr(r6) ; set sharing to only other get 
ttt rele Ketere seen 2" 
“Pwo, .f6 3 rewin ore open 

virwo, fab (tfoptr ), 388505 , 


vitecsh, 2* tecsts(r6), 100$ ; /sh? 
$m_get! fabSm_put! fab$m up. fabSb_shr(r6) ; set sharing 
le-spec_len, fabSb_fnstr ) ; set Tile spec's length 


3 open 
=(r6) 3 the input file 


$.TMP1,G*SYSSOPEN 
b$l_stv(r ), w*err_msgvec+8 ; save the STV value 

: branch if failure of any type 
bsb_rfm(r6), #fabSc_vfc ; vfc record format? 


$m 
Sy 
$ 
$ 


or =-82o2 820° fo 
ae -coor CooCoT 


a 
r 
8 
3 
1 3; nope 
rms$_fsz, r0 3; pre-set bad vfc size error 
2 $b-fsz(r6), Minput_vfc_siz ; vfc size correct? 

; nope, go die with an error 
3 Sb_rfm(r6), #fab$Sc_stm ; stream record format? 
f 
a 
f 
$ 
u 
f 


; nope 
abSm_cr, fab$Sb_rat(ré6) ; always say implied lf/cr for stream 


3 connec 

b=@fab$l_tecrab(r6) ; the correct rab 

ab$l_tecrab(ré) 

$.TMP1,G*SYSSCONNECT 
success_or_cls ; check for success completion 
#fab$v_ftecfmt, fab$Sl_tecsts(r6), 140$ ; any format options? 
#*c<fabSm_blk>, fab$B_rat(ré) ; yes, clear all but this 
fab$l_tecsts+2(r6) fab$b_rat(r6) ; then apply options 
fab$q_tecque(ré), fab$q_tecque(ré) ; initialize the 
robSa_tecquetre) fab$q_tecque+4(r6) ; data buffer queue 
r6, (r7) ; set file as open 
i-r2(ri0), #*a/I/-*a/R/ ; what is it? 
160$ s it's 
150$ : it's 
r7, b*indir(r11) 3; it's El, set indirect as active 
set_filename 3; set the file's name, etc. 


and exit 


fab$l_nam(r6), r0 
nam$b_rsl(r0), ri 
ri, w*file_spec_ 
ri, anam$l_rsa(r 


get pointer to nam from fab 

and get resultant filename'’s Length 
set a new file spec length 

: move input’s resultant filename 


2 
§ ee ee ee 


#nam$c_maxrss, w 
#fab$Sv_tecnv, w* 
#fabSv_tecnv, w* 


b*oupntr(ri1), r7 
w*ou put_nor_fab, r6 
r7?, #oupnor 


ile_spec_buf ; into file spec buffer 
le_spec_opt ; ensure maximized version 
le_spec_opt, 30021$ 


— re ⸗ — 


0 
f 
f 


; get place to store fab pointer 
; Quess at normal output 
; good guess? 


: ye 
5 kobe. alternate output 
gcets ire: > set file spec options 


w*output_alt_fab, ré6 

w*file_spec opt. fab$l_t : 
#fab$m_sqo! Tab$m_sup! fab$m_tef, fab$l_fop(r6) ; reset options 
fabSw_ars(r6) ; Maximum record size = 0 for variable 


TECONAT VAX=11 TECO 16-SEP-1984 02:11: AX/VMS Macro V04-00 Page 
v89 02 Get files opened, etc. 18-SEP-1984 HERG TECO.SRCJTECONAT.MAR; 3 ° (33) 
1F 4 2 FAB 27 8 movb #fab$c_var, fo0sb.rtatre) 3; guess at variable record format 
1E A 9 FAF movb etapea.cr abSb_rat(r6) ; guess at implie }f/er records 
24 6 D4 FBS 6731 clri — fabSL_xab(rg) ; guess at no specific protection code 
17 As 2 a 0 FB6 27 : movb #fab$m_get! fab$m yet fabSb_shr(r6) ; set sharing to gets 
05 50 A6 oe FB 7 bbc otapev. ecrw, fab scecgts (re) . 190$ ; /rw? 
FC 734 bs #fabSv_rwo, fab L_fop(ré6) ; 585 rewind before open 
00 04 46 07 83 300228 bbcs #fabSv_rwo, fabsl_fop(r6), 300228 | 
05 50 A608 4 FC 735 7908. bbc #fab$Sv_tecsh, fab$l_tecsts(r6), 200$ ; /sh? 
17 ag 43 yi 9 FCA 27 § movb #fab$m_get! fab$m pvt: tabse up. Sepsb_shr (ro) : set sharing 
04 50 A6 A € FCF 2737 200$: bbc #fabSv_tecnv, fabSl_tecststr6), 210$ = /nv? 
FD4 2738 bs #tabsy axv, ta 837 ; set maximized version numbers 
8 A6 0602 8 OFD4 bisb s*#lafab$v_mxv, _fop(r 
0 00°AB C OFD8 2739 210$: movzwl b*inpntr(rT1), r ; get input file's pointer 
50 6 Dd FOC 2740 movl frp. r0 ; to get its fab pointer 
f 1 FOF 2741 beql 230$ : ng inpu e 
04 1E AO 4 FE1 reg bbc #tab$v_ftn, fab$b_rat(r0), 2208 ; really want fortran ccl? 
1E Aé 01 FE6 274 movb #fab$Sm_ftn, fab$Sb_rat(r6é) ; yes, so set it 
08 AA BS OFEA 744 2208: tstw ir (rT0) ; is it B or Ew? 
r 3 s 
51 24 A0 DO OFEF 2746 wovl fab$l_xab(r0), ri ; it's EB, get input's protection xab 
08 Al OOFO BF AA OFF3 2747 bicw #<xabSm_noread! - ; clear no read 
gree 748 xab$m_nowrite! - 3; and no write 
FF9 2749 xab$m_noexe! - : and no execute 
OFF9 2750 xab$m_nodel>a@xab$v_own, - ; and no delete @ owner spot 
pre 751 xab$w_pro(ri) ; to ensure owner stuff is o.k. 
24 A651 89 FF9 P36 mov l ri, fab$l xa r6) 3 Now use that protection code 
04 1F AO 91 OFFD 275 cmpb fabSb_rfmTr0), #fab$c_stm ; input in stream record format? 
05 13 1001 2754 beql 2408 3; yep, go default output to stream 
08 50 46 «OB gi 1003 755 230$: bbc #fabSv_tecstm, fab$l_tecsts(ré), 2508 ; stream format option? 
1F A6 804 0 1008 £38 40$:  movb #fabSc_stm, fabSb_rfm(r6) ; set output for stream format 
1E AG 02 90 100C 275 movb #fabSm_cr, fab$b_rat(r6) ; with implied Lf/cr records 
04 50 A6 OC 4 101 £28 250$: bbc #fabSv_tecvar, fab$l_tecsts(r6), 260$ ; variable format option? 
1F A6 8 0 101 75 movb #fab$Sc_var, fabSb_rfm(r6é) ; set oy Byt for variable format 
05 50 46 6 4 101 760 260$: bbc #tabSv-tectmt, fab$l_tecsts(ré) $ ; any format options? 
1E A652 A6 0 1 if 761 movb fab$l_ftecsts+2(r6), Tab$b_rat(ré) 3 yes, apply ootions 
34 AG OBEC'CF 90 1 3 66 2708: gove ; w*file_spec_len, Febee._ toutes? set file spec's Length 
create - : create 
10 9 2764 fab=(ré6) 3 the output file 
4 DF 1029 PUSHAL (r6) 
00000000 ' GF 1 FB 10 CALLS #$$.TMP1,G*SYSSCREATE 
010C*CF C A6 9010 765 mov fab$l_stv(r6), werr_msgvec+8 ; save the STV value 
52 4A6 00 10 £06 mov l fepst xabirg). r2 3 save protection xab use indicator 
A D4 103C 276 clrl fab$l_xab(r6) 3; then remove the protection xab 
5 D5 105F £08 tstl r 3; did we use a protection xab? 
9 131 ay 3 beql 2808 ; nope | 
00000000 ' 8F 0 D1 104 7 9 capl r0, #rms$_prv : yep. a privilege violation error? 
D7? 13 «106A 277 beql 276$ ‘ 5 that we did, go try. try ages eee 
104C 2772 280$: bs #fabSv_dit, fab$l_fop(r6s ; (pre=)mark ile for deletion 
00 04 A6 of ES ! of 300268 bbcs #fab$v_dit, fabSl_fop(ré), 300248 
00000000'8F 5 D1 61 2 773 capl 4 #rms$_supersede ; did we supersede something? | 
13 1058 2774 beql 296 3 yes, that’s o.k. 
FOA1 30 105A 2775 sbw success_or_err 3; else check for success completion 
105D ore 2908: connect - 3 connect 
1 2p 77 rab=a@fab$l_tecrab(r6) ; the correct rab 
54 B6 DF 105D PUSHAL @fab$l_tecrab(ré) | 
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VES -02 Get Hist 2 opened, etc. 18-SEp-] 38 — ‘82 — C 0.SRC TECONAT. MAR; 3 . (33) 
00000000 ' GF 9 B 1 9 CALLS #$$.TMP1 Shey seconmect 
FO7A 1 ah bsbw success _or Pe suc ons gonplocton 
28 A6 28 A E 106A 277 movaq 3 9. — 3 fab$q_ i comtenl att ialize the 
C A6 A 106F 2780 movaq zerg Secquetrs), » fab$Sq_ — 4(r6) ; data buffer queue 
67 ; 4 1074 2781 movl set file as’ open 
FC ! 3 brw set_outputname 3 set the file's name, etc. & exit 
! ga 4 : disable lsb 
107A 27 $ fetch_filbuf: : fetch (converted) filename buffer 
obterch bee : 0008 aE 2F 1086 7 movtuc #filsiz, filsrt, - 3; move translated from TECO's buffer 
1 * 788 #0, w*file_spec_t table : ‘til Ofend), 128(spec), 255(end?) 
Hitt 789 #nansc _maxrss, w*file spec buf ; into our file spec buffer 
39 1C 1080 2790 bvc $ : terminator not seen?? 
80 8F 1 91 108F 2791 10$: cmpb (r1)+, #128 3; is it the special (128)? 
3 ig 1093 3 bneq 30$ ; —— other, call it the end 
0 082 1095 279 decl r ; **2 the special from count 
if 13 1097 79% begl 30§ ; yorhin ng le eft?? 
65 81 80 8F 81 1099 2795 addb3 #128, (ri1)+, (r5) ; conver next to (almost) proper code 
09 §5 05 =€5 1935 79 bbcc 5, (r5)+, 208 ; now do an (almost) final correction 
OS FF AS €9 10A2 279 blbc =-1¢r5), 26$ ; have we (finally) done it? 
FF AS FF 8F 90 10A6 2798 movb #255, -1(¢r5) ; nope, this is the last fix! 
0 D7 10AB 2799 20$ decl r ; remove ‘nodi fied code from count 
54 07 0 800 decl r4 : 337, y we've store another character 
65 54 63 00 61 =50 2F 10AF 2801 movtuc 0, (ri), #0, (r3), r4, (r5) i Frans) atee move rest of data 
D7 10 1986 4 bys di : and loop if another hit... 
9 94 108 30$: clrb (r5) 3 ensure -asciz format 
O8EC'CF FF 8F 4 3 10BA 2804 subb3 4, #nam$c_maxrss, w*file _spec_ Len :. form file spec length 
5 ie) z38 rsb : exit w/ Z=1 if zero Length 
10 8 331* file_char: : get file specification character 
50 86 9A 10€ 808 10$: movzbl (r2)+, r0 3 get next byte from filename buffer 
13° 10 809 beql F 3; null, the end, exit ‘beql' 
1A 53 8 10€7 2810 blbs 3, 208 : branch if inside of quotes 
20 50 1 10CA 31 cmpb r0, #32 : is this a junky character? 
F3 18 10CD \¢ blequ 10$ 3: yes. ignore 
7F 8F 50 91 10CF 1 cmp r0, #127 3; other kind of junky character? 
D 13 1003 14 beql 10$ : yes ignore it 
61 8F 0 91 10D5 15 capb r0, #*a/A/+32 : is it lower case? 
09 #1F 1009 18 blssu 208 ; not Lower case 
7A BF 5 91 10DB 1 capb r0, #*a/2/+32 3 eight 
1A 10DF 18 bgotru 2 § ; but it OF nt t. 
50 8 8 10E1 1 bicb #32, r0 : lower case, make into upper case 
22 4 73 ! eS Y 20$ gape s § #*a/"'/ ; changing quote mode? 
ne 2 
53 1 CC 10€9 § aan #1, 3 ; ane so flip the flop 
0 9 Wee 70s: tstb r0 : ensure ‘bneq’ exit 
05 10E€ 4 40$: rsb 3 exit 
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VES -02 Do " processing 1 ~$FE 38 eee ETECOSRCSTECONAT MAR: 3 ° 3, 
! Ef -sbttl Do ‘'en'’ processing 
i 4 5 -enable Lsb 
10EF 9 en_preset ; preses the. * specification 
O6EC'CF pF 10EF novel *en_fab, r6 ger & * F b pointer 
34 AG «6OOBEC'CF 9 —94 movb * file_spec_len, fab$b_ fns 4 ; "set "tile spec's length 
10FA Sparse - ; parse the specification 
10FA 4 fab=(r6) ; from the ‘‘en’’ fab 
66 0f ince PUSHAL (r 
00000000'GF 01 fe 1 FS CALLS #$$.TMP1 -G*SYSSPARSE 
O10C°CF OC AB OD 118 2 mov fab$l _stv(r6), “err_msgvec+8 ; save the STV value 
50 46 01 Be 1109 § 10$: movl #fabSn_ ** fab$i- tecsts(r6 3; reset private status (fnf) 
BrEE 9 110D 3 bsbw success_or ; check for success completion 
50 A6 4 119 38 clrl fab$l *técsts(r6) ; made it, mark as active 
0S 111 839 rsb 3 then exit 
1114 rt 
1114 41 en_next 3 get next ‘en’ eetorenes 
56 _Q6EC'CF of 1114 z8 val wen r6 3; get the ‘'en'’ fab pointer 
34 50 46 1119 4 bibs fast. veietetiel. 50$ ; keep saying 37.* we need to 
111D 2844 .assume fab$m_ — éq 1 
111D 2845 20$: $search - ; else search for next occurance 
111D 2846 fab=(r6) ; using the ‘'en’’ fab 
66 ODF 111D PUSHAL (r6) 
00000000 ' GF 01 FB 1115 CALLS #$$.TMP1 »G*SYSS$SEARCH 
Q1OC'CF OC AG DO 1126 2847 mov fab$l_stv(r6), werr -msgvect8 ; save the STV value 0 
03 50 4 112C 2848 blbc r0, 30$ : branch i any ty type of error 
FBAA 1 i f 849 brw set_filename ; set the i tant stuff & exit ic 
00000000'8F 50 O01 1135 851 30$: cmpl r0, #rms$_fnf : not found? 10$ 
i. 63S 1139 83¢ beql 4 > yes, sO Say so 10$ 
00000000'8F 50 v1 1138 He cmp r0, #rms$_nmf ; no more 1 ay} 10$ 
OA 13 1142 54 beql : yes. $0 10$ 
OC A6 DS 1144 83? tstl fab$l_stv(ré) : fatal type “error? 10$ 
CO 12 1147 56 bneq 10$ 3 yep, $o die with it 10$ 
EF76 30 1149 2857 bsbw success_or_announce ; else just announce the error 10$ 
«Bae i in 338 brb 20$ ; and go try, try again... ics 
50 46 66 SO114E 60 40$: incl fab$l_tecsts(ré6) ; keep saying 'fnf' from now on 10$ 
1151 2861 assume fabsm_ teceof éq 10E 
1151 2862 50$: = err FNF, <"File not found'> 10E 
EFF1 30 1151 bsbw err 1.8 
OOOOO3CF* 1154 -long $$$$$$ a 
8 ar .word _P 
6F 66 20 74 6F 6E 20 65 6C 69 4 , D1 eascic ‘File not found" _P 
64 6E 7 30D « 
03D1 a 
a 3863 * 
115 864 .disable Lsb ⸗ 
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V39.02 Handle the EJ flag 10-SEP-1984 :16: TECO.SRCJTECONAT.MAR; 3 (34) 
118 $6 »sbttl Handle the EJ flag 
11 8 tec$ejfig: i; get ej flag ———— 
56 0060'CF 115 8 movab w*tmp_string_buf+8, r6é ; point into temporary a 
66 C 112? 0 clrq (r6) 3 no return Len(+8) & end-of- List(+12) 
57 QOA0" Cf 3 115F 71 movab wotmp rigs i792 buf, r7 3; point to result area 
§ 7 00 1164 ts mov l r?7, ° ; set pointer t9 result buffer(+4) 
76 6319 8F 80 (1167 7 movw gipis, pid, -(r6) i$ guess at went! Fing pr process id(+2) 
58 O05 00 116C 74 mov l #5, 3; guess at -lej s) 
9 8 4 75 tstw i{_r0(r10) : yhag does the user “peatly want? 
7 i 1171 og blss 20$ ; is -lej, return 5 for vms 
OF 1 1128 7 beql 10$ 3 it is 0 —* ° fetch process id 
56 OOFA'CF 3C 117 a movzwl w*ter_o_unit, r8 3 guess at Ferate unit 
02 6A 81 117A 287 cmpw  i_r0(F10), #2 : Bhat fs {t realty? 
B 19 1170 80 blss 20$ : tt is lej, return terminal unit 
66 0304 8F BO 117F 2881 movw #jpi$_uic, (r6) ; it is 2ej, fetch uic(+ 
76 35 80 1184 Ht) 10$: movw #tmp_string2_siz, -(r6) : set size of result but fer (+0) 
1187 288 $getjpi_s - ; get job information 
1187 2884 “itmlst=(r6) ; item List... 
66 bb 1189 PUSHL #0 
66 OF 1188 PUSHAL (r6) 
00 oD 1330 PUSHL 
00 bb 1191 — 
00000000 ' GF 8 FB 1193 CALLS #7,G*SYSS$GETJPI 
EFSA 30 119A 2885 bsbw auccess or_abrt 3; check for success completion 
67 DO 119D 2886 movl (r7), 3 fetch result 
BS 11A0 2887 tstw i r0tr10) : what was it? 
13 11A2 2888 beql 20$ 3 process id (0ej) 
FO 11A4 2889 insv 2(r ut #8, *— r8 ; uic, make into 2 bytes 
3C 11AA 2890 20$: movzwl 8, ir 0¢r1 0) : set the desired result 
05 11AD 2891 rsb 3 exit 


dD 1 
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1108 $4 -cbttl Handle Line truncation mode changes 
Vine $6 -enable Lsb 
11AE 97 tec$truln: ; change truncate Lines mode 
¢ 8 Dd 11M 38 mo gtecSv_etstru r2 ; set the ET bit to check 
9 dO 118 9 movl #tt$v_wrap, —* ; and corresponding characteristic 
0 6A D2 1184 9 mcomt ji _r0(F10), i; get the new bit(s) to check against 
09 11 1187 g 1 brb 10$ i go join common code 
1188 ‘ -sbttl Handle 8-bit terminal mode changes 
11B9 5 tecS$eight: 3; change 8-bit terminal mode 
2¢ oc pe 11B9 29 § mov #tec$v_et$8bt, r2 ; set the ET bit to check 
OF 00 118C 29 mov l Gtthy gigntbit. r3 ; and gorrespend ine characteristic 
50 6A 00 11BF $43 mov L r0(ri0), r0 ; get the new bit(s) to check against 
wore" ° Vite 3 108: pst woter_o_chan ; 1s there . —— output channel? 
© 3; nope, just go ex 
, 0004" CF DD 1168 911 ushl w*devdepend 3 save the ort inal characteristics 
00 0004'CF 53 €E€5 11CC aig bec r3, w*devdepend, 20$ ; ensure bit off in characteristics 
06 50 26 E1 11D2 2915 208: bbc rz, r0, 30 ; shound we set the characteristic? 
00 O0004'CF 5 E2 1106 2914 bbss r5, w*devdepend, 30$ ; set bit on in characteristics 
15 10 11DC 2915 30S: bsbb tec$setmode ; go set the terminal mode 
0004 'CF ef g° 1106 318 movl (sp)+, w*devdepend 3; restore original characteristics 
EF 1 1 at 33 brw success_or_err ; check for success completion @ exit 
1152 233 -sbttl Handle new terminal width 
11E6 2921 tec$width: ; handle new terminal width 
OOF6"CF BS 11&6 29 § tstw w*ter_o_chan ; is there a terminal output channel? 
13 11EA 29 beql 0$ 3 nope, just go exit 
0002'CF O0000'CB B0 vies 924 movw htsizetrwsize(ri1), w*devbufsiz ; set the new terminal width 
11F 925 tec$setmode: i; doa 10$_SETMODE on terminal output 
F048 30 11F3 3 bsbw tecSwait ; wait for all output to be queued 
11F6 2927 $qiow_s - ; queue an 1/0 request 
11F6 2928 chen = w*ter_o_chan, - ; on the terminal output channel 
11F6 2929 func = s*#io$_Setmode, - ; doing a setmode 
11F6 2930 josb = w*ter_o_pos, - ; using this as the I0SB 
11F6 2931 ‘pl = w*getdvi_info, - ; set the information in this buffer 
= Fo 932 & #getdyi into_len ; which is this long 
7E 7C 11F8 CLRQ -(SP) 
oc 11FA PUSHL § #getdvi_info_len 
0000"¢r F 11FC PUSHAL w getdvi_ints 
E 2s 6° CLRQ - (SP) 
O10'CF 7F 1 8 PUSHAQ w*ter_o_pos 
— 00° HS 1 § MOVZWL s*#io$_Setmode,-(SP) 
7t OOF6'CF 3¢ 6 MOV ZL weter_6_chan,~(SP) 
00000000 ' GF o¢ Fe 1 19 CALLS #12,G6*SYS$Q10W 
05 121 933 bc r0, 40$ ; just exit if any error 
50 0010'CF C 121A 2934 movzwl w*ter_o_pos, r0 ; else return the completion status 
5 ! 1F 4 5 40$: rsb 3 exit 
1 $8 9 $ disable lsb 
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Vegonat VAX=11 
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Stop terminal hacks 18-SEP-1984 13:16:08 ErEcorsrcSteconatsnar,s #9 (83, 
} i «sbttl Stop terminal hacks 
1 «enable sb 
1 
1 2§ tecSxitnw: ; 
O100'cr 01 90 1920 3944 movb #1, weexiting_fla exiting tleg ce on” 
9000000 'GF 9 ! d 227 enable ctrit: . ; Cresdenable CIRLIT actions 
—3.3. DE 139¢ 328 —— g*libSenable ctrl, r0 ; address enable cob cli service 
Bee 48 Iif 3860 move w'ter gob ems ° ; enable mask is saved old mask(s) 
15 is 5 383 Esty yoterai_chan ; do. we have a terminal for input? 
of fie He | Fant ptt LER oe 
05 6 £5 338 b tbe "6° 50 sry : ca L the enable/disable cli service 
OBEB'CF OE i ti 5954 Bel tgs), weer_ccb_ach | 4A0 kegsther'olS neshlsh en” 
cere : 1 8 ore sw Ah. 2 or — —2 oe os EES 
05 124¢ 3 30$: sb sie: S ont 
124D 2959 not_exiting: : 
F9 O100'CF 00 £5 124 - me 3 we're not really exitin 
so” "go000000"Gr SE 1958 3961 Bbec, Qc wearitina flag. 398 { tulefng Gite. cert” HET was oft 
51 0100000 8F DE 125A 296 ees Jibs 3 ofthl, 70 3 address disable oob cli service 
cE Ott 158) oe8 pov siibsmcliictrit. rl  ; disable mask is for CIRL/T 
63 364 ; go do the CTRL/T disable 
-disable lsb 


, 4 
89.02. Process special functions 18-SEP-1986 98:16:08 EPECOrSRCSTECONAT.MA — 


CONAT .MAR; 3 


! 6 967 .sbttl Process special functions 
i Hf -enable lsb 
50 87 9A 1 971 10$: movzbl (r7)+, r0 i get a byte from the buffer 
1p 13 1266 2972 beql. 408 : Sng of buffer. exit 21 
61 8F 83 4 : : 4 gape — #*a/A/+32 ; should we convert case? 
u 3 nope 
7A 8F 50 91 4 ee 975 cmpb» 0, #*a/Z/432 : really? 
1A 1 44 petru 2 § 3 nope again 
50 0 oA 1274 297 bicb #32, 9 3 yep force upper case 
20 50 9 1877 2978 208: empb 10, "W5 tee space? 
07 12 127A 297 bneq 40$ ; nope, exit Z= 
50 87 91 127C 2980 30$: cmpb (r7)+, r0 3 yep. is next also a space? 
£8 13° 127F 2981 beql 30$ 3 mu otpte spaces, collapse thee 
5 4 1281 29 § decl r?7 i else back up the pre-fetch (& Z=0) 
5 } ; 2 ? 40$: rsb 3; exit, Z=1 => end-of-buffer 
FF 8F QA 1284 2985 508: movzbl #nam$c_maxrss, (r6) 3; set maximum Length of value 
04 46 87 1288 29 § movl r7, 4(r6) 3 set address part of value desc 
67 66 00 A 128C 298 Loce #0, (r6), (r7) ; locate the terminating null 
so 30 te } 3 43 subl r0, (r6) ; and find the true length 
66 7F 129 989 pushaq (r6) 3; arg #2 => symbol's value 
68 7F 1295 2990 pushaq (r8) ; arg #1 => symbol's name 
00000000 ' GF 96 FB 1297 2991 calls #2, g*lib$set_symbol ; call the set symbol cli service 
Fe — 9 129E 2992 53$: bsbw success_or_abrt 3; check for success completion 
OE 1 ! 4— 45 brw 130$ ; go move value to filename buffer 
68 53 12A4 2995 57$: tstw (r8) ; zero Length symbol name? 
6A 13 12A6 44: beql 90$ ; yep. error, go return a value of 0 
66 3F 12A8 299 pushaw (r6) 3 arg as -> symbol's value length 
6 7F 12AA 2998 pushaq (ré6) 3; arg #2 => symbol's value 
6 7F 12AC 2999 pushaq (r8) ; arg #1 => symbol's name 
Q0000000'GF 0 FB 1 = 9 calls #3, §, | [oSget symbol ; call the get symbol cli service 
00000000'8F 50 »Di 128 1 cmpl r Lib$_nosuchsym ; did the symbol exist? 
EO 12 12BC 08 bneq 538 > yes, or other error... 
C Pe ; go move null to ename buffer 
00C4 31 : BF bbe b 120$ Ll fil ff 
A 10 12C1 00s 60S: bsbb } ; get the next character 
20.) «(65 91 12C3 38 cmpb r0, #32 ; is it a space? 
4A 12 12C 00 ones 90$ 3; nope, error, go return a value of 9 
12C 008 getdesc tap.string?. r8 ; reset & get desc for temp string # 
58 9oA0'Cr 43 12C movab w*tmp_string2_buf, r8 
; 8 4 12C movl 8, -Tr8) 
7 F C 12D movzwl 73° string2_siz, -(r8) 
51 DO 12D 09 mov a 7, ri ; get Length of symbol’s name buffer 
52 — DO 12D 10 mov (r8), re ; and get a pointer to it's storage 
D4 12D 11 clrl -(rB5 ; reset length of symbol’s name desc 
51 D7 12Dd8 3 decl ri ; we store before check; fix length... 
84 19 120D 13 70$: bsbb 108 i get next character of symbol’s name 
8 135 12DF 14 beql 57$ 3 gnd must be reading the symbol 
20 50 91 1261 3015 capb 60 - #32 : is it a space? 
13 12E4 16 beql 5 3; yep. that’s the name's end 
Be 7 1 8 1 movb r0, (r2)+ ; store the symbol's name character 
FFEE 68 1 Fl 12€ 3 acbl rl, #1, (rB), 708 ; bump Length and check for too far 
i : rf 3 brb 90$ ; it's too far, go return a value of 0 
| 
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process special functions 

go fetch the filename buffer 
address the fetched data 

et the first command byte 

he end, go exit n= 

get (biased) List of functions 
skip uncompared characters 
pic pointer to logical name desc 
could it be this function? 
might be... 
more to check? 

yep, loop... 

set return value of 0 
exit 


get next character of name 

no more, go return value of 0 

is the character correct? 

nope, go return value of 

yep, more to check? 

there's more, loop... 

reset & get desc for temp string 


is it DCL symbol manipulation? 


yes 
get the next character 

no more, 9° read the logical 
another, is it a space? 

nope, error, go return a value of 0 
set maximum s ring eize 

and pointer to string 

locate the terminating rull 

then correct the size 
size is zero, go delete the logical 
return new value string upon exit 
set logical name string desc 
set value string * 
arg #2 -> value string 
arg #1 => logical name 
call the set logical cli service 
we ignore supersede of an old string 
now go check it 


translate 

teco's logical 

se cing result length here 
which is the result buffer 


; check for success completion 
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Process special functions SEP-1984 ECONAT.MAR; 3 
0000' 8F 1 137 .mpw rQ, #ss$_notran 3; did any translation happen? 
; if 1 é brea 1%6s 2 ; yep, return th result. string 
6 B 1 1608: clrl res ; ser result string to null 
FFFE‘8F 00 0608800" te C ! ; 71 150$ moveS (r6), a4(r6), #0, #filsiz-i-1, filsrt ; move to filename buffer 
635 94 1394 ye clrb (r3) ; ensure answer is .asciz 
05 ! 38 75 140$: = rsb 3; exit with n=-1 for success 
EB AF oF 1397 75 150$: pushab 1208 3; return null value string upon exit 
3 C 139A 7 clrq cae? ; dummies to be removed below... 
7E 6 7D 139C¢ 7 movq (r8), =(sp) 3; set logical name string desc 
E 7F 1395 7 pushaq (sp) ; arg #1 => logical name 
— 8 1 FB 13A1 7 calls #1, g*libSdelete_ logical ; call the delete logical cli service 
gp00" F 3C 13A8 H movzwl #388 _nolognan, r2 ; we ignore no logical to delete 
; 10 CO 13AD 1 160$ addl #2*8, sp ; remove the stacked descriptors 
5 50 Di 1 8 cmpl r0, r2 ; is this the error we ignore? 
—1 13 1 0 beql 1468 > yep, just go exit 
EDIF 31 : 82 8 : brw success_or_abrt ; check for success completion & exit 
1 H 086 .disable lsb 
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} : : -sbttl Get additional memory 
i ; 3 enable Lsb 
24 AA 6 138 92 108: incl i_ps(ri0) ; indicate failure with c=1 
' or 87 rsb ; and exit with failure 
158C 95 tec$sizer: 3 get additional memory 
51 04 AA Wgzgut et a af 39 addl3 —41351 i.ri(r10), rl zet the request amount 
poe 1FF 8F CA 13C 9 bicl #Si2-1, rT ; rounded up to a page multiple 
O0E8' CF 1 Oi 13CC a8 cmpl ri, w*still_free ; is there room left? 
5 1A 1301 bgtru 1 ; nope, we must fail 
OUES8'CF Rea + ge + 0 subl ri, w*still_free ; move the requested amount 
O'AB 1 AQ 13D 101 addw ri, b*curfre(r11) ; to teco's free space 
6B OO'AB O07 €0 130C 19 bbs #tecSv_et$xit, b*etype(ri1), 40$ ; doing announcements? 
0000 ' 8F or’ Bi 1361 19 cmpw b*qcmnd(ri1), #cmdqrg ; are we within a macro? 
6 i 13E7 3104 bneq 3; skip announcements if so 
5E O100'CF E€8 13€9 3105 blbs wexiting flag, 40$ ; also ship announcements if exiting 
OO'AB BS 13EE 196 tstw b*indir(rT1) : from within indirect command file? 
12 13F1 31 bneq 40$ ; skip announcements if true 
1 Fe 108 bs s“#io$v_canctrlo, ctlofg ; g9 ? control/o cancel 
00 O0000000"EF 00° €E3 BY 500258 bbcs s“#io$v_canctrlo, ctlofg, 30025$ 
56 5B gr 9A 13FB 3109 movzbl #*a/C/, r6 3 start with ‘'C"’ 
F292 30 I3FF 3110 sbw echo_buf fer ; in the message 
56 O0°'AB OO'AB Al 1408 111 addw3  b*qrStor(ri1), b*qmax(r11), r6 ; find end of 
56  00°AB AO 140 118 addw b*curfre(ri1). r6 ; ‘total space in use 
56 5B A2 140C 311 subw rii, r6 ; now find total byte size in use 
56 56 3C 140F 3114 movzwl re r6 ; now convert that to a longword 
56 O00001FF BF CO 1419 115 addi ss #5411, r6 ; round an 
56 00000200 8F C6 141 138 divl #512, r6 i; find that size in pages 
7 D4 16 11 clrl 57 ; clear the +s - order 
57 56 56 OA 7B 14 118 ediv #10, r6, r6, r7 ; and divide to tens/units | 
|, ee} ee 119 beql 3 3; no tens 
58 56 OA C3 1429 3120 subl3 #10, r6, r8 ; are tens really up to hundreds? 
9 19 142d 3121 blss 208 3 nope 
56 1 QA 142F 31 § movzbl #*a/1/, r6 3; yep. set a ‘1’ for the hundreds 
F25F 30 14 g 1 bsbw echo_buffer ; and go output it 
6 6 63 D0 14 124 mov l r8, ré6 3; restore corrected tens 
13, 10 1438 3125 208: bsbb 508 ; output result (tens) 
56 65 143A 31 § $: movb r7, r6 3; copy the remainder (units) | 
0 10 1430 31 bsbb 50 ; and go output it 
0342'CF 7F 143F 31 pushaq w*sizing_msg_desc ; set the rest of the sizing message 
F218 CF 3 Fe WB 1 calls #1, W. tecSout_ascid ; and go output it | 
00° AB 1 AB 144 1 bisw #1, b*outdne(ri1) ; Say memory message output done 
05 ret : 1 40$: rsb 3 exit 
56 9 $0 144D 31 j 50$: addb #*a/0/, r6 ; make character into a digit 
F241 1 1433 : ¢ brw echo_buffer ; and, then, go buffer it 
145 136 .disable Lsb 


° -SEP- 11: y/ - $2 
89.02" Get date and tine 18-SEP-1984 99:18:08 EEcosRCSECoNatsman:s «= P29* (88, : 


1? 13 -sbttl Get date and time 
1 1? -enable lsb 
A 19 4088 Beg OST 4 fi Oe 
$s 3; go ge nformation 
57 = 86 76C ét 43 14 144 subw #1900, (r6)+, 7 ; ger year-190 DEF 
7 10 A& 1658 3145 mulw #16, r7 3 then multiply it by 16 
7 6 AO 14 : 146 addw 7 ; add in the month 
7 AS 14 14 mulw #32, 7 ; then aul Sipty by 32 
7 8 AO 1464 133 10$: addw (r65+, r7 ; finally, add in the day or seconds/2 
6A z— 1467 314 movzwl 7, i_rO(ri0) ; return phe result 
1? 4 } 9 rsb 3; and exit 
146B 31 ¢ tecStime: ; get time 
12 10 1468 31 bsbb 208 ; go get the information 
56 og 1298 133 addl #6, r6 3; skip over year, mon=h, day 
57 6 C AS 14 155 mulw #66, (r6)+, £7 ; get hourt6 
7 B86 AO 1474 136 addw (r65s, r7 : add in minutes 
re AS 1477 315 mulw #60/2, r7 3; _then multiply by 30 
66 09 AG 147A 3158 divw # (r6) ; form seconds/ 
e511 1420 139 brb 10$ ; go add in seconds/2 and exit 
56 OO05S8'CF 9E 147F 3161 208: movab w*tmp_string_buf, ré6 ; get pointer to temporary area 
1484 196 $numtim_s - ; get numeric date/time 
* ty 16 ge ; into temporary area 
66 DF 1486 PUSHAL (ré6) 
00000000 ' GF 8 FB —44 CALLS #2,G*SYSSNUMTIM 
EC4 31 Ht +4 3165 brw success_or_abrt : check for success completion 
1295 166 .disable lsb 
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V89 02 Exit from TECO 18-SEP-1984 96715508 UTECO SRCSTECONAT MAR: 3 . (40) 
143 183 -sbttl Exit from TECO 
1? 109 -enable Lsb 
1B 13 143 176 108: beql 20$ i no file 
14 17 $close - ; else close 
1494 3174 fab=(r6) ; the file 
§ DF 1494 PUSHAL (r6) 
00000000 ' GF 1 FB 1496 CALLS #$$.TMP1,G*SYSSCLOSE 
O10C'CF OC A D 1228 175 movl rabsl sty srg) w*err_msgvec+8 ; save the STV value 
00000000'8F 5 Di 14 178 cmpl rO, #rms$_ifi ; was file already closed (bad IFI)? 
0 14AA 317 beql  20$ : yes, don't call it an error... 
EC1 14AC 173 bsbw success_or_announce 3 announce any failure... 
3 3 208: rsb 3 exit 
1480 3181 tecS$texit: 3; exit from teco 
F330 630 1783 1 ¢ bsbw echo_dump 3; dump out any partial terminal output 
56 QO000000'EF DO 148 1 movl cmdprm, r6 ; get indirect file fab pointer 
D6 10 148A 3184 bsbb 10$ ; and close it if necessary 
56 QO000000'EF 00 1786 185 movl spare. r6 3; get normal input fab pointer 
CD 3610 16 186 bsbb 10 ; and close it if necessary 
56 QOO000000'EF DO 14C€5 3187 movl ingalt, r6 ; get alternate input fab pointer 
C6 10 14€C 3188 bsbb 10 ; and close it if necessary 
56 QOO000000'EF DO 14CE 3189 movl oupnor, ré 3; get normal output fab pointer 
BB 10 1405 3190 bsb 1 3; and close it if necessary 
56 OO000000°EF DO 1407 3191 mov l oupalt, ré ; get alternate output fab pointer 
8 10 14DE 136 bsbb ; and close it if necessary 
50 satel Hs vt 137 povewt ¥ger_cchan, r0 3 get terainel control/c ast channel 
e ; 
14E7 3195 $dasson_s - ; deassign channel 
14E7 3196 chan= ; from control/c ast channel 
50 3C 14E7 MOVZWL r0,-(SP) 
00000000'GF 01 FB 14EA CALLS #1,G*SYSSDASSGN 
EBCE 30 14F1 3197 bsbw success_or_announce 3; announce any failure... 
50 ore’ te 5 yo 138 30$: bovine ¥ gent chan, r ; pet tereine input channel 
14FB soy Sdasson_s - ; deassign channel 
14FB 1 chan=r0 : from terminal input 
50 3C 14FB MOVZWL r0,-(SP) 
00000000'GF 01 F 30 CALLS #1,G*SYSSDASSGN 
EBBA 1 0 bsbw success_or_announce 3 announce any failure... 
FDIA 1508 bsbw gnable_ctrlt ; go (re-)enable CTRL/T actions 
OE 11 ! oD : brb 0$ 3; continue 
150D — 40$: $close - ; close 
1 4 0 fabeun input _sys_ fab ; sysS$input 
O7A0'CF DF 1500 PUSHAL w* meus nf fab 
00000000 ' GF 1 FB 1511 CALLS #$$.TMPT,G*SYSSCLOSE 
EBA7 30 1518 8 bsbw success_or_announce ¢ announce any failure... 
ore'e ° ! 19 44 50$: Esty ygero.chan 3; a terminal output channel? 
e 3 none 
ECEE 1521 11 bsbw tec$wait_done ; wait for terminal output to complete 
FCC 1524 \¢ bsbw tec$setmode ; go (re-)set correct terminal modes 
EB9 1527 1 bsbw success_or_announce ; announce any failure... 
152A 14 $dassgn_s - ; ease ton channel 
152A 15 chan=w*ter_o_chan from terminal output 
7E OOF6'CF 3¢ 152A MOVZWL w*fer_o_chan,-(SP) 
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V89 00 Exit from TECO 18-SEP-1984 IS:ter0s | LtBCOnSRCafEcoNAT aR; 3 9° (40) 
00000000 ' GF 1 152F CALLS #1,G*SYSSDASSGN 
EB89 1 § 16 bsbw gyccess_or announce 3; announce any failure... 
A ! Z : brb 3; continue 
O8BE ‘CF ; 1538 19 608: tstw y gutput.sys_rabsrabSu_rsz 3 any remaining record length? 
11 153F bneq 0 3; yes, so dump the record 
01 OOF2°CF Bi 1541 cmpw ygutput.sys.vic, #1 3 any remaining print control? 
1F 8 1 8 ; blequ 0$ 3; none(0) or final NL(1), forget it 
OOF2"°CF 97 154 decb youtput_sys_vfc 3; remove any final NL request 
06 18 154¢ 4 bgeq 0$ 3; all is still o.k. 
OOF2'CF 94 154 5 clrb w*output_sys_vfc ; else sey no prefixing at all 
O8C4'CF iEOO'CF 9E i 2 § 708: poves w*output_sys_buf, w*output_sys_ra ore l_rbf ; reset pointer 
ut - ; put a recor 
1559 8 4 rab=w*output_sys_rab 3; to sysS$output 
O89C'CF DF 1559 PUSHAL w output ays rab 
00000000 ' GF 9 FB 155D CALLS #$$.TMP1,>G*SYS$PUT 
EB5B 30 1564 $3 bsbw success_or_announce 3 announce any failure... 
1567 0 80$: $close - ; close 
1567 31 fab=w*output_sys_fab ; sys$output 
4C°CF DF 1567 PUSHAL w*output sys. fa 
00000000'GF 01 FB 15 CALLS #$$.TMP1,G*SYSSCLOSE 
EB4D ; 15 ¢ bsbw success_or_announce 3 announce any failure... 
f69 157 90$: bsbw fetch_filbuf ; go fetch the filename buffer 
1 13 1578 4 beql 100$ ; null string pet exit 
OBED'CF 9F 157A 5 pushab w*file_spec_buf ; stack descriptor 
7E OB8EC'CF 9A 1378 6 movzbl w*file_spec_len, -(sp) ; of command string 
6— 7F 158 7 pushaq (sp) 3; arg #1 => command string 
Q0000000'GF 01 FB 1585 8 calls #1, g*lib$do_command 3; call the do command cli service 
5E 98 0 1256 9 addl #8, Sp 3; remove stacked descriptor 
Fe 0 QO 158F 40 bsbw success_or_announce 3 announce any failure... 
50 pocnere ff C 1338 41 100$: movzwl xitsts, r0 3; get the exit status 
1 0 01 123 4g cmpl 9 #1 ; what kind of an exit is this? 
0c 13 159¢ 324 beql 1208 ; =1, a normal exit 
J 1F 159 44 blssu _ 1108 ; =0, an EG exit 
50 3 OFFFFFF7°8F oe 15A 45 movl #<ss$_abort!sts$m_inhib_msg>-9, r0 ; >1, an abort exit 
50 09 CO 15A 46 110$: addl #9, 0 ; make EG exits into a 
15AA 47 1208: Sexit_s - 3 ¥ ines ly done, really exit 
15AA 48 code = r0 ; with this reason code 
50 DD 15AA PUSHL r0 
00000000'GF 01 FB 13h 49 CALLS #1,G*SYSSEXIT 
158 29 -disable lsb 
158 1 
158 52 .end tec$teco 
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4 IBSENABLE CTRL wecetess: 6G 
1M PED. LOGNAR Qon000RE Rg LIREENABLE, ST 
INPNOR ekeeeeee =X A LIBSGET_SYMBOL ree ate x 2 
INPNTR eeereeee =X A LIBSGET_VM La te X 
INPUT_ALT_BUF 00001600 R 5 LIB$K_CCI_GLOBAL_SYM = 90 0 oe 
INPUT_ALT_FAB 0 484 R 6 LIBSK-CLI-LOCAL_SY = 38 
NPUT"ALT_NAM 4EC R 06 LIBSM-CLITCTRLT s i 83 6 00 
INPUT—ALT_RAB 5A4 R 6 LIBSM_CLI_CTRLY w+ 344044: x 8 000 
INPUT_ALT_S1Z 0000800 LIBSSET_LOGICAL Seeseeee * Ul 8 000 
Rae ee HERE une tM 3 
INPUT~ALT~XAB 9808 asf 8 Se 5 seconets 00¢ 
INPUT“NOR”FAB 39 338 — 00900008 pe 
NPUT_NOR_NAM 000 178 R 6 NAM$B_RSL = 000000 oF 
fei tet Sa me : BESS i 
INPUT “NOR “SPEC QOOOO9SED R 06 AMSC_BLN s BOO BOSEE oF 
INPUT -NOR-XAB 0000108 R «OF —— = 99000006 ire 
INPUT __NOR_X = 00000004 
INPUT_SYS_FAB 000007A0 R 06 NAMSL_RSA 00000004 — 
INPUT_SYS_RAB 00000808 R 06 NFL 
INPUT_SYS_VFC 00001104 R 06 ON_ ULL p000RF 2 4 oe 
Inout re=8ie guog00gt "|, aT Fang Hie 
1oscco teeneeee =X OA OUPNOR — toe 
10$M_CANCTRLO teeeeeee XX OA QUPNTR anenener ee 
IOSM_CTRLCAST teeeeeee YX 08 UTDNE 000005E8 R 06 
10$M"DSABLMBX teeeeeee xX 08 OUTPUT_ALT_FAB 00000648 R 06 
IOSM~NOF ILTR teeeeeee =X 08 OUTPUT"ALT_NAM 9st ae 
1O$M_NOF ORMAT teeeeeee X OA OUTPUT_ALT_RAB OOO00DED R 06 
10$v_ CANCTRLO eeekkene X 08 OUTPUT_NOR_FAB 000 0 4 R 06 
10$V V~CVTLOW RRERKEEK x 08 OU PUT_NOR_NAM 000 0 4R 06 
10$V~ NOE CHO geeeeenre x 08 OUTPUT_NOR_RAB 000 OAEC R 06 
1O$V~TIMED teeeeene YX 08 OUTPUT_NOR_SPEC 0001E00 R 05 
10$ READVBLK teeeeeee XX 08 OUTPUT_SYS_B OO004C R 06 
10$~SE TMODE eeeeeeee KX 08 OUTPUT_SYS_FAB 000089C R 06 
10$ WRI TEVBLK teeenere KX 08 OUTPUT_SYS_RAB 8883 
IOERR teeeeeee § X 08 OUTPUT_SYS_SIZ HT R 06 
IOERRS eeeeeeee KX 08 OUTPUT_SYS_VFC seessees 8 Ok 
1_BIAS Matdists PDL DLSRT eeeeeeee XxX OA 
—* ? PRE OAD _0_REGS 00000258 R 8 
He sii —535 — J—— 
at 00 ° 8 PSL$V_CURMOD . 8886314 
—A 8883384 8 
1284 ym teeeeeee =X OA 
IRS 1 QCMND gkeneene x 8 
17SP 0 8 MAX keeeeenre x A 
JPI$_PID 6° 3 1 ORSTOR eeeeeeee =X A 
JPIS UIC . 9 QUOTA_MSG_DESC 00000323 R 3 
LIBSDELETE LOGICAL peovesse 7 9 YOTA_MSG_ eeeeeeee Xx OA 
tTBSD0: COMMAND L eeeeeeee RSSET sececeee =X OA 
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ABSB_RAC = 1 SYSSCLI eeeeenee 
RABSC “BID = of SVeSCLOSe eeeeeene gn 
RABSC_BLN = 4& SYSSCLREF aeteeeee 6X 
RABSC_SEQ = 9 SYSSCONNECT eeeeeeee GX 
RABSL_CTX = SYSSCREATE eeeeenee GX 
RABSL _RBF = SYSSCRELOG eeeneeee GX 
RABSL_RHB = C SYSSDASSGN eeereeee GX 
RABSL ~ROP = 00000004 SYSSOCLCMH eeeeeeee GX 
RABSL_STV = 8 SYSSEXIT eeeeener GX 
RABSV_LOC = 8 0001 SYSSGET eeeeeene GX 
RABS$V_RAH s 88 9 SYS$GETDVI eeeeeeee 6X 
RABSV_TPT = B88 01 SYSSGETJPI aeeeenee GX 
$v_ = 0 9 SYSSNUMTIM aekteret 
RABSW_RSZ = 000000 § SYSSOPEN eeeeneee 
RESET_INDIR 0000006 08 SYSSPARSE eeaeeeeee 
RMS$_EOF keeeeeee =X 08 SYS$PURGWS aeeeenee 
RMS$_FNF eeetheet x 8 SYS$PUT ekakeene 
RMS$_FSZ eeekeene x A SYSSPUTMSG ekkkenne 
RMSS IFI tkeeeeee x 8 SYS$QI0 kee EE 
MS$_NMF ReeKKEEE x 8 SYSSQI0OW ReRRREKE 
RMS$_NORMAL eeeekeee x 08 SYSSREWIN eeeeeeee 
RMS$_PRV eekkenke x 08 SYSSSEARC ekkerene 
RMS$_SUPERSEDE eekkkeke x 08 SYSSTRNLO eekeenee 
RMSS$_SYN teeneeee =X 08 SYSSWAITF etkereee 
WSIZE aeeeeeee = X OA TSANSI 00000100 
SAVED_SP QOOOO0ES R 06 TSDEC 00002000 
SAVE BATA 00000907 R 08 TSEDIT 00001000 
SCHBOF eeeeneee =X OA T$VTO5 00000001 
SCHSRT eeektene X OA TAGBUF kekkkten OA 
SET_F ILENAME OOOOOCDC R 08 TAGSRT 22**** OA 
SET— INPUTNAM QOOOOCBD R 08 TECSALLER OO000DB4 R 08 
SET-OUTPUTNAME 00000CB1 R 08 TECSBAKUP 80464 R 08 
SIZING _MSG_DESC 00000342 R 03 TECSCLSFL 0000013 R 08 
SPS eeereree X OA TECSCLSOF 00000015 R 08 
SCS A eeenenee =X BA TECSCMTRAP —8669 R 08 
S$S$_CONTROLC eketeree x $ TECSCTRLCAST 00000194 R 08 
SS$_EXDISKQUOTA eeeneere = X 0 TECSDATE 0001453 R 08 
e teereeee =X 08 TECSDELCH —8044— 08 
SS$_NOTRAN etkeeeee =X A TECSDELLN 000769 R 08 
SS$_ SUPERSEDE eeneeeee =X 8 TECSEIGHT be 1188 R 08 
SS$- TIMEOUT eeeneeee §=6X 8 TECSEJFLG 001158 R 8 
START_TECO 4 Tk be TECSGETBF 8646 R 8 
STILL _FREE 00000E8 6 TECSGETFL 00 Be R 0 
STRSAPPEND reeteeee x = TECSGEXIT B08 12F1 R 8 
STRSCONCAT rerkereee Xx A TECSINPSV 0 g6 R 
STS$K_SEVERE = 9 4 TECSINPUT 0000576 R 8 
STSSM_INHIB_MSG = Teton thet OOOODS5C R 
STSS$M-SEVERTTY = TECSM_EDSCTL 00 1 
UCCESS_ELSE_ DIE A7 R TECSM_EDSEXP 0 4 
SUCCESS-OR_ABRT D7 R TECSM_EDSIMD 0 
SUCCESS_OR_ANNOUNCE Ce R TECSM_EDSINC 0 
SUCCESS_OR_CLS E4 R TECSM_EDSSRH $ 1 
CCESS OR_ERR ; a R TECSM_EDSWCH 
SWITCH_CIST 50 R TECS_EDSYNK 
SYMSPC eereeree =X 4 TECSM_ETS8BT 1 
SYSSASSIGN eeereeee GX A TECSM_ETSBIN 
SYSSCANCEL eekeeeee GX 8 TECSM_ETS 0 
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TT2$M_EDIT = 10000000 5 
TTOBFC eeeeeeee 8 6X : \ 
hh oA eeeeeree x 3 
TTOINT eeeeeeee x ;* 
TTOMOD keekeeee x 3* 
TTOPTR Reeekene x 3* 
TXSTOR Reeeeere x A 39 
UNIT 4C R 7 3* 
XABSB_MTACC = oA 3* 
XAB$B_PROT_MODE = 0 ‘* 
rity eae OPT = 3* 
$C_PRO = 8 1 z* 
XABSC _PROLEN = 5 ;* 
XABSL_ACLBUF = 8 1 3* 
XABSL_ACLCT = :* 
XABSL_NXT = 000 4 :* 
XABSM_NODEL = 00000008 :* 
XABSM_NOE XE = 8 8 4 3* 
XABSM_NOREAD = 0 1 3* 
XABSA_ I = 00000002 2* 
XABSV_OWN = 00000004 X 
XABSW_ACLSIZ = 444 1C :* 
XABSW_GRP = Q000000E :* 
XABSW_M = 0000000¢ * 
XABSW FRO = 00000008 z 
KXITSTS teereeee x 08 
7MAX keekeeee x OA 
ZZ eeeeeenre 08 
— — — — — ee ee * 
;_Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» 8S « 00000000 ( 0.) 0 J 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS$ 8 9 8 9. 1 ¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
.-ABS.. ; 1 (65536.) ( 33 NOPIC USR OVR ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
TECODAT 00 5 ( 992.) O35 ¢ -) NOPIC USR CON REL LCL HR NOEXE RD NOWRT NOVEC PAGE 
TECODATINI gWiͤl ce Sees 4 (¢ 4.) NOPIC USR CON REL LCL SHR NOEXE RD NOWRT NOVEC PAGE 
TECOBUF 0 909 ( 8192.) 5 ( 5.) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC PAGE 
TECOCTL Ban ( 4374.) $ ( 33 NOPIC USR CON REL LCL NOSHR NOEXE R&D WRT NOVEC PAGE 
TECOCTLINI 0 8 —343 07 ¢ -) NOPIC USR CON REL LCL NOSHR XE RO WRT NOVEC PAGE 
TECOEXE Beh 8 ( 5555.) 3 ( 8-3 NOPIC USR CON REL LCL SHR EXE RD NOWRT NOVEC PAGE 
TECOEXELBR 00 ( on ( -) NOPIC USR OVR REL GBL SHR EXE RD NOWRT NOVEC PAGE 
TECOEXEINI OOO4CE ( 1230.) A( 10.) NOPIC USR CON REL LCL SHR EXE RD NOWRT NOVEC PAGE 
¢eweoewoeccecece:. eesce sees ecee } 
! Performance indicators : 
Phase Page faults CPU Time Elapsed Time | 
potetot tzotten : ‘8 :00:00.9 
Command processing 1 :00: :00:05.4 
Pass 1 13 00:00: :01:53.7 
Symbol table sort :00:0 :00:06.65 
“ 4 
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Pass 2 1607 :00:1 
Symbol table output :00: 
Psect synopsis output :00: 
Cross-reference output :00: 
Assembler run totals 307 1 


bey] york ing t es was ae pag ges. 
521 bytes (812 pages) of virtual memory were used to buffer the intermediate 
There were 110 pages of symbol table Rag ot “ie. x to hold 1850 non-local and 


age source "19,pae were read in Pass 1, produci ng object records in Pass 2. 
pages of virtual memory were used to define 79 macros. 


Macro Library name Macros defined 
_$255$DUA28: [SYSLIBISTARLET.MLB; 2 eecnes ~ Fy 
2009 GETS were required to define 59 macros. 

There were no errors, warnings or information messages. 
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